Die Gerätetasten benutzen

Ich habe lange danach gesucht, es hat mich immer maßlos geärgert - die Tasten am PocketPC sind nicht nur zur Zierde! Hier der Code, um die Tasten zum Leben zu erwecken:

Public Declare Function SHSetAppKeyWndAssoc Lib "AygShell.dll" (ByVal bVk As Long, ByVal hwnd As Long) As Boolean
Dim n As Boolean

Const btn1 = 193
Const btn2 = 194
Const btn3 = 195
Const btn4 = 196

Private Sub Form_OKClick()
   'Zuweisung aufheben
   n = SHSetAppKeyWndAssoc(btn1, 0)
   n = SHSetAppKeyWndAssoc(btn2, 0)
   n = SHSetAppKeyWndAssoc(btn3, 0)
   n = SHSetAppKeyWndAssoc(btn4, 0)
   App.End
End Sub

Private Sub Form_Load()
   'Tasten zuweisen
   n = SHSetAppKeyWndAssoc(btn1, Form1.hwnd)
   n = SHSetAppKeyWndAssoc(btn2, Form1.hwnd)
   n = SHSetAppKeyWndAssoc(btn3, Form1.hwnd)
n = SHSetAppKeyWndAssoc(btn4, Form1.hwnd)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case btn1
         MsgBox ("Taste 1")
      Case btn2
         MsgBox ("Taste 2")
      Case btn3
         MsgBox ("Taste 3")
      Case btn4
         MsgBox ("Taste 4")
   End Select
End Sub

<...zurück>