GetAsyncKeyState
Aus API-Wiki
Version vom 10. September 2008, 15:16 Uhr von Nils Thomsen (Diskussion | Beiträge)
Diese Funktion fragt den Status einer Taste ab.
<vb>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</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
Beispiel
<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 </vb>