Mausklick systemweit abfragen Wie man systemweit erkennen kann, wann und welche Maustaste gedrückt wurde, erfahren Sie in diesem Tipp.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  14.057
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man einen Mausklick systemweit abfragen kann, d.h. wann welche Maustaste gedrückt wurde, das erfahren Sie heute. Erstellen Sie hierzu ein neues Projekt, platzieren auf die Form ein Timer-Control, sowie ein Label.

Fügen Sie nachfolgenden Code in das Codefenster der Form ein:

Option Explicit
 
' 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 Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 150
  Timer1.Enabled = True
 
  ' Wichtig! Zunächst zurücksetzen
  Call GetAsyncKeyState(VK_LBUTTON)
  Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
  ' linke Maustaste gedrückt?
  If GetAsyncKeyState(VK_LBUTTON) Then 
    Label1.Caption = "linke Maustaste"
  ElseIf GetAsyncKeyState(VK_RBUTTON) Then 
    Label1.Caption = "rechte Maustaste"
  ElseIf GetAsyncKeyState(VK_MBUTTON) Then 
    Label1.Caption = "mittlere Maustaste"
  Else
    Label1.Caption = ""
  End If 
End Sub

Da die API-Funktion GetAsyncKeyState den Status der (Maus-)Taste seit der letzten Abfrage zurückgibt, ist es wichtig, die Funktion einmalig vor der dauerhaften Abfrage aufzurufen.