Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) _
  As Integer
Private Const VK_SHIFT As Long = &H10
 
...
 
  ' Auswerten des Ergebnisses
  If CBool(Retval And &H8000) Then
    MsgBox "Die Taste ""Shift"" ist momentan gedrückt."
 
  ElseIf CBool(Retval And &H1) Then
    MsgBox "Die Taste ""Shift"" wurde seit dem letztem Check gedrückt."
 
  Else
    MsgBox "Die Taste ""Shift"" wurde seit der letzten Überprüfung nicht" & _
      "gedrückt." 
  End If

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 01.01.09 um 14:39:38 editiert.