Article	41024266
Type	HowTo
Product	Engine
Version	5.1.1.1041
Date Added	7/7/2006
Submitted by	JongHyun Kim
Keywords

Subject

Pan and Ortho

Summary

I want to do like orthomode in Pan() function while (Shift + WheelMouseClick)

Do you surpport this function in Vdraw?

Solution

The only thing you can do is to "ortho" pan when orthomode is True. see the code below :

Private Sub VD_ScrollView(dx As Double, dy As Double, Cancel As Integer)
 
    If VD.ActiveDocument.OrthoMode = False Then Exit Sub
    If Abs(dx) > Abs(dy) Then
        dy = 0
    Else
        dx = 0
    End If
    
End Sub