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
[email protected]
[email protected]