GetAsyncKeyState: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
(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===
+
==Parameter==
:''vKey''
+
''vKey''
 
:Virtueller Tastencode der abzufragenden Taste.
 
:Virtueller Tastencode der abzufragenden Taste.
  
  
===Rückgabewert===
+
==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>

Quellen

MSDN Library - GetAsyncKeyState