Hallo zusammen,
ich habe folgendes Problem, ich möchte alleine dadurch ein Objekt bewegen können, indem ich einfach über das entsprechende Objekte mit der Maus rübergehe, einen Moment verweile und dann dieses Objekt durch Mausbewegungen ohne zu klicken bewegen kann. Mal abgesehen davon, dass ich die Verweilzeit bei MouseHover noch nicht einstellen konnte, ist das Bewegen des Objekts sehr ruckelig bzw. man braucht mehrere Versuche, dass Objekt bewegt zu bekommen. Hier mein Code
ich habe folgendes Problem, ich möchte alleine dadurch ein Objekt bewegen können, indem ich einfach über das entsprechende Objekte mit der Maus rübergehe, einen Moment verweile und dann dieses Objekt durch Mausbewegungen ohne zu klicken bewegen kann. Mal abgesehen davon, dass ich die Verweilzeit bei MouseHover noch nicht einstellen konnte, ist das Bewegen des Objekts sehr ruckelig bzw. man braucht mehrere Versuche, dass Objekt bewegt zu bekommen. Hier mein Code
VB.NET-Quellcode
- [vb]Private Sub Modus_MouseHover(sender As Object, e As EventArgs) Handles Ebenenmodus_x_z.MouseHover
- ausgewaehlt_x_z = True
- End Sub
- Private Sub Modus_x_z_MouseMove(sender As Object, e As MouseEventArgs) Handles Ebenenmodus_x_z.MouseMove
- If ausgewaehlt_x_z Then
- isTrackingExz = True
- ex1 = Cursor.Position.X
- ey1 = Cursor.Position.Y
- End If
- End Sub
- Private Sub Unterprogramm_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
- If isTrackingExz Then
- Dim px1 As Integer = Control.MousePosition.X
- Dim py1 As Integer = Control.MousePosition.Y
- Dim p1 As Point = New Point(px1, py1)
- Ebenenmodus_x_z.Location = New Point(Me.PointToClient(p1))
- End If
- End Sub[/vb]