Ein Bild (PictureBox) verschieben

08/05/2009 - 15:22 von Rüdiger Lehmann | Report spam
Hallo,

ich möchte ein Bild (geladen in einer PictureBox) verschieben. Dazu habe
ich eine Form mit einer PictureBox gezeichnet und ein Bild geladen. Dazu
dann folgenden Code:

,-
|Option Explicit
|
|Private XPos As Single
|Private YPos As Single
|
|' Picture1 frei positionierbar
|Private Sub Picture1_MouseDown(Button As Integer, _
| Shift As Integer, X As Single, Y As Single)
|
| ' Ausgangskoordinaten der Maus speichern
| XPos = X
| YPos = Y
|
|End Sub
|
|Private Sub Picture1_MouseMove(Button As Integer, _
| Shift As Integer, X As Single, Y As Single)
|
| ' Button verschieben, wenn Maustaste gedrückt
| If Button = vbLeftButton Then
| Picture1.Move Picture1.Left + X - XPos, Picture1.Top + Y - YPos
| End If
|
|End Sub
`-

Merkwürdigerweise wird das MouseDown-Ereignis jedoch nicht ausgelöst,
bzw. nur, wenn ich die mittlere Maustaste drücke. Das Ganze soll aber
bei mind. beim Drücken und Ziehen der linken Maustaste funktionieren.

Kann mir bitte mal jemand auf die Sprünge helfen?

MfG
R.L.
 

Lesen sie die antworten

#1 Rüdiger Lehmann
08/05/2009 - 15:28 | Warnen spam
Hallo,

*Rüdiger Lehmann* schrieb am 08.05.2009 15:22:
,-
|...
| Picture1.Move Picture1.Left + X - XPos, Picture1.Top + Y - YPos
|...
`-



SRY, die Zeile macht hier natürlich keinen Sinn. War ein Copy&Paste-Fehler.

Ähnliche fragen