Hallo,
ich möchte in VB abfangen, wo auf dem Bildschirm die linke/rechte Maustaste gedrückt wurde.
Die Position bekomme ich mit „Cursor.Position.X.ToString“ (und Y) aber wie erhalte ich den Klick?
Mein Ergbnis soll dann wie folt aussehen:
X, Y, Linksklick, Rechtsklick
z.Bsp.:
215, 254, 0, 1 (das wäre ein Rechtsklick)
785, 36 , 1, 0 (das dann ein Linksklick)
234, 232, 0, 0 (das wäre eine Mausbewegung, ohne einen Tastenklick)
Viele Grüße
Nachdem ich gestern nichts googeln konnte, habe ich heute endlich einen brauchbaren Treffen gefunden:
http://www.vbarchiv.net/tipps/tipp_878-mausklick-sys…
Nachdem ich, wie auf der Form ein Label und einen Timer platziert habe, musste ich den Code der oben genannten URl noch fpr mich anpassen.
Dieser schaut jetzt so aus und läuft bei mir 1A 
Public Class Form1
Private Sub Form1\_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Timer initialisieren
Timer1.Start()
' Wichtig! Zunächst zurücksetzen
Call GetAsyncKeyState(VK\_LBUTTON)
Label1.Text = ""
End Sub
' zunächst die benötigten API-Deklarationen
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK\_LBUTTON = &H1
Private Const VK\_RBUTTON = &H2
Private Const VK\_MBUTTON = &H4
Private Sub Timer1\_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
' linke Maustaste gedrückt?
If GetAsyncKeyState(VK\_LBUTTON) Then
Label1.Text = "linke Maustaste"
ElseIf GetAsyncKeyState(VK\_RBUTTON) Then
Label1.Text = "rechte Maustaste"
ElseIf GetAsyncKeyState(VK\_MBUTTON) Then
Label1.Text = "mittlere Maustaste"
Else
Label1.Text = ""
End If
Timer1.Start()
End Sub
End Class