Hallo jetzt muss ich nochmal eine Frage mit dem Thema Koordinaten stellen.
Ich hab jetzt Bei Form Load den Befehl gegeben mir die Koordinaten in zwei Textfelder (Left ; Top) zu schreiben das funktioniert zwar aber es fragt sie nur einmal ab wenn ich jedoch das bild verschiebe ändert sich nichts an den Koordinaten in den zwei Textfeldern, da sie ja nur einmal abgefragt werden undzwar wenn die form geladen wird.
Gibt es eine Möglichkeit die Koordinaten ständig zu überwachen und immer wieder neu in die Textfelder eingeben zu lassen?
Sonst funktioniert mein Prinziep nicht.
(VB6)
Danke schonmal für Eure Bemühungen!
Hallo,
Ich hab jetzt Bei Form Load den Befehl gegeben …
da ist Dein Problem. Das ist das falsche Ereignis.
Du möchtest Dir die Position merken an welcher Stelle die Maustaste herunter gedrückt wurde. Kurz und knapp auf englisch ‚Mousedown‘.
Dann interessiert Dich wie und wann die Maus auf dem Bild bewegt wird, … ‚MouseMove‘.
Du musst Dur nur immer die passenden Ereignisse suchen, die Namen sind doch eigentlich gut verständlich.
Gruß Rainer
Hallo,
wie weit bist Du? Sieht Dein Code etwa so aus …?
Option Explicit
Dim px As Integer, py As Integer
Private Sub Form\_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 3
End Sub
Private Sub Picture1\_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
px = X
py = Y
End Sub
Private Sub Picture1\_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Left = Picture1.Left + X - px
Picture1.Top = Picture1.Top + Y - py
End If
End Sub
Gruß Rainer