To move a picture with the mouse I used the Code: Image1.Left = X But while going right it is really choppy, but going left it is fine. What's wrong, should I use a different method?
:)
Steve
Printable View
To move a picture with the mouse I used the Code: Image1.Left = X But while going right it is really choppy, but going left it is fine. What's wrong, should I use a different method?
:)
Steve
Use a Picturebox it'll yield better results, eg.
Just Click on the Picture and Drag...Code:Private oX As Integer
Private oY As Integer
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
oX = ScaleX(X, ScaleMode, vbPixels)
oY = ScaleY(Y, ScaleMode, vbPixels)
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static lX As Single
Static lY As Single
If lX = X And lY = Y Then Exit Sub
lX = X
lY = Y
If Button = vbLeftButton Then
X = X - ScaleX(oX, vbPixels, ScaleMode)
Y = Y - ScaleY(oY, vbPixels, ScaleMode)
Picture1.Move X + Picture1.Left, Y + Picture1.Top
End If
End Sub
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]