Picture Box und Maus Problem

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von tfshow.

    Picture Box und Maus Problem

    Halle Community,

    ich habe ein Problem, weil ich gerade ein spiel programmieren möchte:
    In meiner form soll die PictureBox beweglich sein d.h. wenn man mit der maus über die PictureBox fährt und dann linke Linke Maustaste drückt soll diese dann mit der maus beweglich sein bis man auf hört die linke maustaste zu drücken...
    Ich hoffe ihr versteht was ich meine :D

    Danke im Voraus!

    Mit freundlichen Grüßen

    VB.NET-Quellcode

    1. Dim nStartPos As Point
    2. Dim nDragPos As Point
    4. Public Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    5. If e.Button = Windows.Forms.MouseButtons.Left Then
    6. nStartPos = Me.Location
    7. nDragPos = Me.PointToScreen(New Point(e.X, e.Y))
    8. End If
    9. End Sub
    11. Public Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    12. If e.Button = Windows.Forms.MouseButtons.Left Then
    13. Dim nCurPos As Point = Me.PointToScreen(New Point(e.X, e.Y))
    14. Me.Location = New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
    15. nStartPos.Y + nCurPos.Y - nDragPos.Y)
    16. End If
    17. End Sub


    Gruß Vitox

Facebook
Telefonspende