G
Gottfried Ehmann
I have
'**************************************************************************************************************************
Type KeyboardBytes
kbb(0 To 255) As Byte
End Type
Declare Function GetKeyboardState Lib "User32.dll" (kbArray As
KeyboardBytes) As Long
Sub FetchESC()
Dim kbArray As KeyboardBytes
Do
DoEvents
GetKeyboardState kbArray
If kbArray.kbb(27) And 128 Then
ESCpressed
End If
' Terminate Macro with STRG
Loop Until kbArray.kbb(17) And 128
End Sub
Sub ESCpressed()
MsgBox "You have pressed ESC"
End Sub
'**************************************************************************************************************************
I am lookin for a list, from where I can see, which keybuttons of a
keyboard are assigned to the keyboard bytes 0 to 255, esp the arrow
keybuttons.
Any help or internet link?
Thanks
Gottfried
'**************************************************************************************************************************
Type KeyboardBytes
kbb(0 To 255) As Byte
End Type
Declare Function GetKeyboardState Lib "User32.dll" (kbArray As
KeyboardBytes) As Long
Sub FetchESC()
Dim kbArray As KeyboardBytes
Do
DoEvents
GetKeyboardState kbArray
If kbArray.kbb(27) And 128 Then
ESCpressed
End If
' Terminate Macro with STRG
Loop Until kbArray.kbb(17) And 128
End Sub
Sub ESCpressed()
MsgBox "You have pressed ESC"
End Sub
'**************************************************************************************************************************
I am lookin for a list, from where I can see, which keybuttons of a
keyboard are assigned to the keyboard bytes 0 to 255, esp the arrow
keybuttons.
Any help or internet link?
Thanks
Gottfried