GetAsyncKeyState
Aus API-Wiki
Version vom 5. November 2016, 22:10 Uhr von Jochen Wierum (Diskussion | Beiträge)
Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.
Diese Funktion fragt den Status einer Taste ab.
<<syntaxhighlight lang="vb">>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</<syntaxhighlight lang="vb">>
Parameter
vKey
- Virtueller Tastencode der abzufragenden Taste.
Rückgabewert
- Null, wenn die Taste nicht gedrückt ist.
- Ungleich Null, wenn die Taste gedrückt ist, wobei das minderwertigste Bit (LSB) gesetzt ist, wenn die Taste erst nach dem letzten Aufruf von GetAsyncKeyState gedrückt wurde. Auf dieses Verhalten sollte allerdings nicht vertraut werden, da eine andere Anwendung zwischenzeitlich GetAsyncKeyState aufgerufen haben könnte. Für nähere Informationen hierzu beachten Sie bitte den verlinkten MSDN-Artikel.
Beispiel
<<syntaxhighlight lang="vb">> Dim vKey As Long
For vKey = 32 To 128 ' Tasten "zwischen" Leertaste und Euro-Zeichen
If GetAsyncKeyState(vKey) <> 0 Then Me.Caption = Chr$(vKey) & " ist gedrückt." End If
Next vKey </<syntaxhighlight lang="vb">>