Objekte wie Picutreboxen ohne Klicken oder Tastatur bewegen sprich mit den Methoden wie Mousehover etc.

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von chris_2091.

    Objekte wie Picutreboxen ohne Klicken oder Tastatur bewegen sprich mit den Methoden wie Mousehover etc.

    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

    VB.NET-Quellcode

    1. [vb]Private Sub Modus_MouseHover(sender As Object, e As EventArgs) Handles Ebenenmodus_x_z.MouseHover
    2. ausgewaehlt_x_z = True
    3. End Sub
    5. Private Sub Modus_x_z_MouseMove(sender As Object, e As MouseEventArgs) Handles Ebenenmodus_x_z.MouseMove
    6. If ausgewaehlt_x_z Then
    7. isTrackingExz = True
    8. ex1 = Cursor.Position.X
    9. ey1 = Cursor.Position.Y
    10. End If
    11. End Sub
    13. Private Sub Unterprogramm_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    14. If isTrackingExz Then
    15. Dim px1 As Integer = Control.MousePosition.X
    16. Dim py1 As Integer = Control.MousePosition.Y
    17. Dim p1 As Point = New Point(px1, py1)
    18. Ebenenmodus_x_z.Location = New Point(Me.PointToClient(p1))
    19. End If
    20. End Sub[/vb]

    @chris_2091 Willkommen im Forum. :thumbup:
    Wenn Du keinen wohldefinierten Start für die Aufnahme der Bewegung verwendest (MouseDown) - wie willst Du das Ende der Bewegung detektieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany vielen Dnak für Deine schnelle Antwort!
    Der Witz ist ja, dass das ohne ein MouseDown Event (also ohne das die Maus gedrückt wird) gehen soll, daher hatte ich als Start für die Bewegung ja mir den MouseHover ausgesucht, wobei das Event MouseEnter eigentlich auch gehen sollte
    Daher suche ich nach Möglichkeiten wie mein Beginn und Ende der Bewegung definieren kann, habe einwenig herum experimentiert, allerdings nichts zufriedenstellendes gefunden.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „chris_2091“ ()

    chris_2091 schrieb:

    wobei das Event MouseEnter eigentlich auch gehen sollte
    Genau das versuche ich mir vorzustellen, und da kommen mir halt solch grundsätzliche Fragen.
    MouseDown und MouseUp als Start und Stop zu verwenden ist logisch und auch easy.
    Implementiere erst mal dies und dann, wenn alles zu Deiner Zufriedenheit funktioniert, steig um auf HOver.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ja das habe ich schon geschafft
    hier der code

    VB.NET-Quellcode

    1. Private Sub Modus_MouseDown(sender As Object, e As MouseEventArgs) Handles Modus.MouseDown
    2. isTracking = True
    3. ex = e.X 'x-Koordinate der Maus
    4. ey = e.Y
    5. End Sub
    6. Private Sub Modus_MouseMove(sender As Object, e As MouseEventArgs) Handles Modus.MouseMove
    7. If (isTracking = True) And (e.Button = MouseButtons.Left) Then
    8. Dim px As Integer = Control.MousePosition.X - ex
    9. Dim py As Integer = Control.MousePosition.Y - ey
    10. Dim p As Point = New Point(px, py)
    11. Modus.Location = New Point(Me.PointToClient(p))
    12. End If
    13. End Sub
    14. Private Sub Modus_MouseUp(sender As Object, e As MouseEventArgs) Handles Modus.MouseUp
    15. isTracking = False
    16. End Sub


    habe das eigentlich dann 1 zu 1 kopiert als MouseDown Event habe ich MouseHover genommen, MouseMove bleibt und anstelle MouseUp halt MouseLeave genommen
    funktioniert halbwegs, allerdings ist das ganze sehr schammig und ruckelig.
    vielleicht hat jemand eine gute Idee wie man das verbessern kann?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „chris_2091“ ()

    @chris_2091
    Probier mal dies (Dein Modus heißt bei mir Panel1):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Private isTracking As Boolean
    4. Private ex As Integer
    5. Private ey As Integer
    7. Private Sub Modus_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
    8. 'If e.Button = MouseButtons.Left Then
    9. ' isTracking = True
    10. ' ex = e.X 'x-Koordinate der Maus
    11. ' ey = e.Y
    12. 'End If
    13. End Sub
    14. Private Sub Modus_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
    15. If (isTracking = True) Then
    16. Dim px As Integer = Control.MousePosition.X - ex
    17. Dim py As Integer = Control.MousePosition.Y - ey
    18. Dim p As Point = Me.PointToClient(New Point(px, py))
    19. Panel1.Location = New Point(p.X, p.Y)
    20. Else
    21. ex = e.X 'x-Koordinate der Maus
    22. ey = e.Y
    23. End If
    24. End Sub
    25. Private Sub Modus_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
    26. isTracking = False
    27. End Sub
    29. Private Sub Panel1_MouseHover(sender As Object, e As EventArgs) Handles Panel1.MouseHover
    30. isTracking = True
    31. End Sub
    32. End Class
    Mit MouseDown-Up wird das Tracking beendet.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook