
VB在窗体中显示按下键盘按键的字母可以通过Form_KeyDown获取按键的KeyCode,然后再把KeyCode转换为相应的键的名字。
代码如下:
Private Sub Form_Load()
MeKeyPreview = True '使窗体可以获取键盘事件
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print KeyCodeToStr(KeyCode) '获取按键信息
End Sub
Public Function KeyCodeToStr(vbKeycode As Integer) '按键的KeyCode转为相应键盘键
If vbKeycode > 47 And vbKeycode < 91 Then
KeyCodeToStr = Chr(vbKeycode)
Exit Function
ElseIf vbKeycode > 111 And vbKeycode < 124 Then
KeyCodeToStr = "F" & vbKeycode - 111
Exit Function
End If
Select Case vbKeycode
Case 8: KeyCodeToStr = "Back"
Case 9: KeyCodeToStr = "Tab"
Case 12: KeyCodeToStr = "Clear"
Case 13: KeyCodeToStr = "Enter"
Case 16: KeyCodeToStr = "Shift"
Case 17: KeyCodeToStr = "Ctrl"
Case 18: KeyCodeToStr = "Alt"
Case 19
KeyCodeToStr = "Pause"
Case 20
KeyCodeToStr = "Caps Lock"
Case 27
KeyCodeToStr = "Esc"
Case 32
KeyCodeToStr = "Space"
Case 33
KeyCodeToStr = "Page Up"
Case 34
KeyCodeToStr = "Page Down"
Case 35
KeyCodeToStr = "End"
Case 36
KeyCodeToStr = "Home"
Case 41
KeyCodeToStr = "Select"
Case 42
KeyCodeToStr = "Print Screen"
Case 43
KeyCodeToStr = "Execute"
Case 44
KeyCodeToStr = "SnapShot"
Case 45
KeyCodeToStr = "Insert"
Case 46
KeyCodeToStr = "Delete"
Case 47
KeyCodeToStr = "Help"
Case 144
KeyCodeToStr = "Num Lock"
Case 189
KeyCodeToStr = "-_"
Case 187
KeyCodeToStr = "=+"
Case 255
KeyCodeToStr = "Unknown"
Case 192
KeyCodeToStr = "`~"
Case 37
KeyCodeToStr = "Left Arrow"
Case 38: KeyCodeToStr = "Up Arrow"
Case 39
KeyCodeToStr = "Right Arrow"
Case 40
KeyCodeToStr = "Dowm Arrow"
Case 219
KeyCodeToStr = "[{"
Case 221
KeyCodeToStr = "]}"
Case 186
KeyCodeToStr = ";:"
Case 222
KeyCodeToStr = "'"""
Case 220
KeyCodeToStr = "\|"
Case 188
KeyCodeToStr = ",<"
Case 190
KeyCodeToStr = ">"
Case 191
KeyCodeToStr = "/"
Case 193
KeyCodeToStr = "\"
Case Else
KeyCodeToStr = "Unknown"
End Select
End Function
ESC键
VK_ESCAPE
(27)
回车键:
VK_RETURN
(13)
TAB键:
VK_TAB
(9)
Caps
Lock键:
VK_CAPITAL
(20)
Shift键:
VK_SHIFT
($10)
Ctrl键:
VK_CONTROL
(17)
Alt键:
VK_MENU
(18)
空格键:
VK_SPACE
($20/32)
退格键:
VK_BACK
(8)
左徽标键:
VK_LWIN
(91)
右徽标键:
VK_LWIN
(92)
鼠标右键快捷键:VK_APPS
(93)
Insert键:
VK_INSERT
(45)
Home键:
VK_HOME
(36)
Page
Up:
VK_PRIOR
(33)
PageDown:
VK_NEXT
(34)
End键:
VK_END
(35)
Delete键:
VK_DELETE
(46)
方向键(←):
VK_LEFT
(37)
方向键(↑):
VK_UP
(38)
方向键(→):
VK_RIGHT
(39)
方向键(↓):
VK_DOWN
(40)
F1键:
VK_F1
(112)
F2键:
VK_F2
(113)
F3键:
VK_F3
(114)
F4键:
VK_F4
(115)
F5键:
VK_F5
(116)
F6键:
VK_F6
(117)
F7键:
VK_F7
(118)
F8键:
VK_F8
(119)
F9键:
VK_F9
(120)
F10键:
VK_F10
(121)
F11键:
VK_F11
(122)
F12键:
VK_F12
(123)
Num
Lock键:
VK_NUMLOCK
(144)
小
键盘0:
VK_NUMPAD0
(96)
小键盘1:
VK_NUMPAD0
(97)
小键盘2:
VK_NUMPAD0
(98)
小键盘3:
VK_NUMPAD0
(99)
小键盘4:
VK_NUMPAD0
(100)
小键盘5:
VK_NUMPAD0
(101)
小键盘6:
VK_NUMPAD0
(102)
小键盘7:
VK_NUMPAD0
(103)
小键盘8:
VK_NUMPAD0
(104)
小键盘9:
VK_NUMPAD0
(105)
小键盘:
VK_DECIMAL
(110)
小键盘:
VK_MULTIPLY
(106)
小键盘+:
VK_MULTIPLY
(107)
小键盘-:
VK_SUBTRACT
(109)
小键盘/:
VK_DIVIDE
(111)
Pause
Break键:
VK_PAUSE
(19)
Scroll
Lock键:
VK_SCROLL
(145
我也是在这上面找的>
VB键盘代码数值表可在代码中的任何地方用下列VB键盘代码常数代替实际值:VB键盘代码常量值
(0x为16进制,其他为10进制)键盘说明vbKeyLButton0x1鼠标左键vbKeyRButton0x2鼠标右键vbKeyCancel0x3CANCEL键vbKeyMButton0x4鼠标中键vbKeyBack0x8退格键vbKeyTab0x9TAB键vbKeyClear0xCCLEAR健vbKeyReturn0xD回车键vbKeyShift0x10SHIFT键vbKeyControl0x11CTRL键vbKeyMenu0x12MENU键vbKeyPause0x13PAUSE键vbKeyCapital0x14CAPS LOCK 键vbKeyEscape0x1BESC键vbKeySpace0x20空格键vbKeyPageUp0x21Page Up 键vbKeyPageDown0x22Page Down 键vbKeyEnd0x23END键vbKeyHome0x24HOME键vbKeyLeft0x25光标左键vbKeyUp0x26光标上键vbKeyRight0x27光标右键vbKeyDown0x28光标下键vbKeySelect0x29SELECT键vbKeyPrint0x2APrint Screen 键vbKeyExecute0x2BEXECUTE键vbKeySnapshot0x2CSnapShot键vbKeyInsert0x2DINSERT键vbKeyDelete0x2EDELETE键vbKeyHelp0x2FHELP键vbKeyNumlock0x90NUM LOCK 键vbKeyA65字母A键vbKeyB66字母B键vbKeyC67字母C键vbKeyD68字母D键vbKeyE69字母E键vbKeyF70字母F键vbKeyG71字母G键vbKeyH72字母H键vbKeyI73字母I键vbKeyJ74字母J键vbKeyK75字母K键vbKeyL76字母L键vbKeyM77字母M键vbKeyN78字母N键vbKeyO79字母O键vbKeyP80字母P键vbKeyQ81字母Q键vbKeyR82字母R键vbKeyS83字母S键vbKeyT84字母T键vbKeyU85字母U键vbKeyV86字母V键vbKeyW87字母W键vbKeyX88字母X键vbKeyY89字母Y键vbKeyZ90字母Z键vbKey048数字0键vbKey149数字1键vbKey250数字2键vbKey351数字3键vbKey452数字4键vbKey553数字5键vbKey654数字6键vbKey755数字7键vbKey856数字8键vbKey957数字9键vbKeyF10x70F1功能键vbKeyF20x71F2功能键vbKeyF30x72F3功能键vbKeyF40x73F4功能键vbKeyF50x74F5功能键vbKeyF60x75F6功能键vbKeyF70x76F7功能键vbKeyF80x77F8功能键vbKeyF90x78F9功能键vbKeyF100x79F10功能键vbKeyF110x7AF11功能键vbKeyF120x7BF12功能键vbKeyF130x7CF13功能键vbKeyF140x7DF14功能键vbKeyF150x7EF15功能键vbKeyF160x7FF16功能键vbKeyNumpad00x60小键盘0键vbKeyNumpad10x61小键盘1键vbKeyNumpad20x62小键盘2键vbKeyNumpad30x63小键盘3键vbKeyNumpad40x64小键盘4键vbKeyNumpad50x65小键盘5键vbKeyNumpad60x66小键盘6键vbKeyNumpad70x67小键盘7键vbKeyNumpad80x68小键盘8键vbKeyNumpad90x69小键盘9键vbKeyMultiply0x6A小键盘键vbKeyAdd0x6B小键盘+键vbKeySeparator0x6C小键盘回车键vbKeySubtract0x6D小键盘-键vbKeyDecimal0x6E小键盘键vbKeyDivide0x6F小键盘/键
以上就是关于vb调试模式下按键查看表达式的值全部的内容,包括:vb调试模式下按键查看表达式的值、VB ALT键盘键值、VB中键盘每个按键所对应的具体数值是例如:enter是对应13.等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)