Move picture (2)

[Matt-D]

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

[Aaron Young]

Try this:

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
aarony@redwingsoftware.com
ajyoung@pressenter.com