vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: Maus & Tastatur · Maus   |   VB-Versionen: VB4, VB5, VB608.10.03
Mausklick systemweit abfragen

Wie man systemweit erkennen kann, wann und welche Maustaste gedrückt wurde, erfahren Sie in diesem Tipp.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  28.591 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

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.
 

Dieser Tipp wurde bereits 28.591 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel