Linke Maustaste Gedrückt halten

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Linke Maustaste Gedrückt halten

    Hallo
    Ich habe ein problem, dass ich einfach nicht gelöst bekomme. Ich habe schon stundenlang gesucht und immernoch nicht das richtige gefunden. Ich möchte, dass wenn man die Linke Maustaste gedrückt hält, dass dann die linke Maustaste solange gedrückt wird, bis ich die taste loslasse. Ich hab's schon geschaffen, wenn eine Taste auf der Tastatur gedrückt wird, dass dann die linke Maustaste gedrückt wird jedoch schaffe ich es nicht, dass mit der linke maustaste zu machen.
    Ich hoffe meine Frage war verständlich und hoffe auf antworten :s

    guten morgen ^^

    hab ich dich richtig verstanden

    du willst wenn du ne taste drückst

    z.b. die "STRG" Taste und dann die linke maustaste das die linke maustaste dauerhaft gedrückt bleibt bis mann die "STRG" taste loslässt?

    lg datsspeed :D

    Ich hoffe ich habe dich ganz richtig verstanden...

    VB.NET-Quellcode

    1. Dim MouseIsDown As Boolean = False
    2. Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    3. If e.Button = Windows.Forms.MouseButtons.Left Then
    4. MouseIsDown = True
    5. End If
    6. End Sub
    8. Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    9. If e.Button = Windows.Forms.MouseButtons.Left Then
    10. MouseIsDown = False
    11. End If
    12. End Sub
    14. Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
    15. If MouseIsDown Then
    16. 'Was du hier machen willst ist deine Sache (zb Fenster schließen)
    17. Me.Close()
    18. End If
    19. End Sub

    Ich hoffe ich habe dich ganz richtig verstanden...

    VB.NET-Quellcode

    1. Dim MouseIsDown As Boolean = False
    2. Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    3. If e.Button = Windows.Forms.MouseButtons.Left Then
    4. MouseIsDown = True
    5. End If
    6. End Sub
    8. Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    9. If e.Button = Windows.Forms.MouseButtons.Left Then
    10. MouseIsDown = False
    11. End If
    12. End Sub
    14. Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
    15. If MouseIsDown Then
    16. 'Was du hier machen willst ist deine Sache (zb Fenster schließen)
    17. Me.Close()
    18. End If
    19. End Sub
    Danke für deine Antwort, das ist aber auch nicht das richtige^^
    Ich hab eigentlich schon das richtige nur hab ich vergessen es zu posten.

    Hier mein bisheriger code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
    4. Private Const LEFTDOWN = &H2
    5. Private Const LEFTUP = &H4
    6. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
    9. Private Sub links()
    10. mouse_event(LEFTDOWN, 0, 0, 0, 0)
    11. mouse_event(LEFTUP, 0, 0, 0, 0)
    12. End Sub
    15. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    16. If GetAsyncKeyState(Keys.LButton) Then
    17. links()
    18. End If
    19. End Sub
    21. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    22. Button1.Text = Button1.Text + 1
    23. End Sub
    24. End Class


    Es klappt auch alles mit anderen keys nur nicht mit der linken Maustaste, denn er lässt sie nicht wieder los und da ist das problem.
    Falls es fragen zum code gibt bitte stellen ;)

Facebook
Telefonspende