GetAsyncKeyState: Unterschied zwischen den Versionen
Aus API-Wiki
(Die Seite wurde neu angelegt: __NOTOC__ <vb>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</vb> ===Parameter=== :''vKey'' :Virtueller Tastencode der abzufragenden T...) |
(Beispiel, Quelle ergänzt, Format angepasst) |
||
| Zeile 1: | Zeile 1: | ||
__NOTOC__ | __NOTOC__ | ||
| + | |||
| + | Diese Funktion fragt den Status einer Taste ab. | ||
<vb>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</vb> | <vb>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</vb> | ||
| − | + | ==Parameter== | |
| − | + | ''vKey'' | |
:Virtueller Tastencode der abzufragenden Taste. | :Virtueller Tastencode der abzufragenden Taste. | ||
| − | + | ==Rückgabewert== | |
:Null, wenn die Taste nicht gedrückt ist. | :Null, wenn die Taste nicht gedrückt ist. | ||
:Ungleich Null, wenn die Taste gedrückt ist, wobei das minderwertigste Bit gesetzt ist, wenn die Taste erst nach dem letzten Aufruf von GetAsyncKeyState gedrückt wurde | :Ungleich Null, wenn die Taste gedrückt ist, wobei das minderwertigste Bit gesetzt ist, wenn die Taste erst nach dem letzten Aufruf von GetAsyncKeyState gedrückt wurde | ||
| − | ===Quellen | + | ==Beispiel== |
| − | MSDN | + | |
| + | <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> | ||
| + | |||
| + | ==Quellen== | ||
| + | [http://msdn.microsoft.com/en-us/library/ms646293.aspx MSDN Library - GetAsyncKeyState] | ||
Version vom 10. Juni 2008, 20:15 Uhr
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 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>
