Picturebox mit gedrückter Maustaste verschieben

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    @Selter98 So was:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim x As Integer
    3. Dim y As Integer
    4. Private Sub Bild1_MouseDown(sender As Object, e As MouseEventArgs) Handles Bild1.MouseDown
    5. x = Control.MousePosition.X - Bild1.Location.X
    6. y = Control.MousePosition.Y - Bild1.Location.Y
    7. Bild1.BringToFront()
    8. End Sub
    10. Private Sub Bild1_MouseMove(sender As Object, e As MouseEventArgs) Handles Bild1.MouseMove
    11. If e.Button = MouseButtons.Left Then
    12. Dim newpoint = Control.MousePosition
    13. newpoint.X -= x
    14. newpoint.Y -= y
    15. Bild1.Location = newpoint
    16. End If
    17. End Sub
    18. End Class
    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!