Code für Mausklick

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RushDen.

    Code für Mausklick

    Hallo ich hab ein Problem ich möchte das eine Picture Box solange immer auf der Position der Maus ist bis man klickt.
    Leider weiß ich den Code für den Mausklick nicht und bin auch nirgends fündig geworden :( .
    Habs schonmal so probiert:


    Do Until MouseButtons = Windows.Forms.MouseButtons.XButton1
    Picturebox1.Location = MousePosition
    Loop

    Danke im voraus

    Verweigere

    HIer isses grad umgekehrt: das Control ist so lange unter der Maus, bis man losläßt: Controls draggen

    Falls du einwenden möchtest, das hülfe dir nix, so finde ich es immerhin entfernt ähnlich mit deiner Problemstellung.
    Fertig-Codes erhält man im Forum halt nur ausnahmsweise und falls grad was parat ist. Ansonsten halt sowas ähnliches, was man selber anpassen muß.

    VB.NET-Quellcode

    1. Public Class Box
    2. Inherits PictureBox
    3. Public Sub New()
    4. Me.BackColor = Color.Black
    5. End Sub
    6. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    7. If m.Msg = &H84 Then
    8. m.Result = New IntPtr(2)
    9. Else
    10. MyBase.WndProc(m)
    11. End If
    12. End Sub
    13. End Class


    Dann im Designer bzw in der Toolbox, einfach das Element "Box" auf die Form ziehen.

Facebook
Telefonspende