Checke das mit den mousebuttons net

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Checke das mit den mousebuttons net

    moin moin
    ich habe ein problem ich möchte das meine form erkennt welchen mousebutton ich gedrückte habe

    im vorraus das mit dem

    VB.NET-Quellcode

    1. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    funzt net gibt ein error

    könntet ihr mir helfen

    code:

    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    2. If e.KeyCode = Keys.LButton Then
    3. MsgBox("linker button")
    4. ElseIf e.KeyCode = Keys.RButton Then
    5. MsgBox("rechter button")
    6. End If
    7. End Sub

    danke im vorraus ^^

    Machma

    VB.NET-Quellcode

    1. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    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!

    Sieh Dir mal dies an:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    2. Label1.Text = (GetAsyncKeyState(Keys.LButton) <> 0).ToString
    3. Label2.Text = (GetAsyncKeyState(Keys.RButton) <> 0).ToString
    4. End Sub
    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!

Facebook
Telefonspende