-
English:
I want that I can move a picture (which is bigger than the screen) by pressing the right
mouse-button and moving the mouse.
(VB 3, but normally this doesn't matter. I've also VB6, but for this Program I Use VB3)
Deutsch:
Ich möchte, daß ich ein Bild, das größer als der Bildschirm ist, mit der rechten Maustaste
bewegen kann (wie in "Die Sidler").
Matthias Lambertz
-
Try this:
Code:
Private oX As Single
Private oY As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
oX = X
oY = Y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Picture1.Move Picture1.Left + (X - oX), Picture1.Top + (Y - oY)
End If
End Sub
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]