Rechtsklick simulieren

  • VB.NET

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

    Rechtsklick simulieren

    Hey Leute,

    Wie simuliere ich einen Rechtsklick?

    Habe bei Google nur Vb6 lösungen gefunden :(
    :saint:

    Also das hättest du in deinem anderen eröffneten thread auch fragen können.

    Nun den ein bsp:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    5. Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
    6. Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
    8. Private Sub ListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
    9. 'Wenn Maustaste Rechts geklickt wird...
    10. If e.Button = Windows.Forms.MouseButtons.Right Then
    11. 'Simuliere Mausklick
    12. SimulateClick()
    13. Application.DoEvents()
    14. 'Überprüfen ob ein Eintrag in der Listbox selektiert wurde
    15. If ListBox1.SelectedIndex() <> -1 Then
    16. Dim x1 As Integer = MousePosition.X
    17. Dim y1 As Integer = MousePosition.Y
    18. 'ContextmenüStrp anzeigen
    19. ContextMenuStrip1.Enabled = True
    20. ContextMenuStrip1.Show(y:=y1, x:=x1)
    21. End If
    22. End Sub
    25. Public Sub SimulateClick()
    26. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    27. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    28. End Sub
    30. End Class


    MFG
    GOOGLE ist mein Meister :)