学步园

Private Function KeyName(Keycode As Integer) As String
Select Case Keycode
Case 8
KeyName = "BackSpace"
Case 9
KeyName = "Tab"

Case 13
KeyName = "Enter"

Case 16
KeyName = "Shift"
Case 17
KeyName = "Ctrl"
Case 18
KeyName = "Alt"
Case 19
KeyName = "Pause"
Case 20
KeyName = "CapLock"

Case 27
KeyName = "Esc"

Case 32
KeyName = "Space"
Case 33
KeyName = "PageUp"
Case 34
KeyName = "PageDown"
Case 35
KeyName = "End"
Case 36
KeyName = "Home"
Case 37
KeyName = "Left"
Case 38
KeyName = "Up"
Case 39
KeyName = "Right"
Case 40
KeyName = "Down"

Case 45
KeyName = "Insert"
Case 46
KeyName = "Delete"

Case 48 To 57
KeyName = Chr(Keycode)

Case 65 To 90
KeyName = Chr(Keycode)

Case 96 To 105
KeyName = "Num " & Chr(Keycode - 48)
Case 106
KeyName = "Num *"
Case 107
KeyName = "Num +"

Case 109
KeyName = "Num -"
Case 110
KeyName = "Num ."
Case 111
KeyName = "Num /"
Case 112 To 123
KeyName = "F " & (Keycode - 111)

Case 144
KeyName = "NumLock"
Case 145
KeyName = "ScrLock"

Case 186
KeyName = ";"
Case 187
KeyName = "="
Case 188
KeyName = ","
Case 189
KeyName = "-"
Case 190
KeyName = "."
Case 191
KeyName = "/"
Case 192
KeyName = "`"

Case 219
KeyName = "["
Case 220
KeyName = "/"
Case 221
KeyName = "]"
Case 222
KeyName = "'"
End Select
End Function

Private Function KeyName(Keycode As Integer) As String
Select Case Keycode
Case 8
KeyName = "BackSpace"
Case 9
KeyName = "Tab"

Case 13
KeyName = "Enter"

Case 16
KeyName = "Shift"
Case 17
KeyName = "Ctrl"
Case 18
KeyName = "Alt"
Case 19
KeyName = "Pause"
Case 20
KeyName = "CapLock"

Case 27
KeyName = "Esc"

Case 32
KeyName = "Space"
Case 33
KeyName = "PageUp"
Case 34
KeyName = "PageDown"
Case 35
KeyName = "End"
Case 36
KeyName = "Home"
Case 37
KeyName = "Left"
Case 38
KeyName = "Up"
Case 39
KeyName = "Right"
Case 40
KeyName = "Down"

Case 45
KeyName = "Insert"
Case 46
KeyName = "Delete"

Case 48 To 57
KeyName = Chr(Keycode)

Case 65 To 90
KeyName = Chr(Keycode)

Case 96 To 105
KeyName = "Num " & Chr(Keycode - 48)
Case 106
KeyName = "Num *"
Case 107
KeyName = "Num +"

Case 109
KeyName = "Num -"
Case 110
KeyName = "Num ."
Case 111
KeyName = "Num /"
Case 112 To 123
KeyName = "F " & (Keycode - 111)

Case 144
KeyName = "NumLock"
Case 145
KeyName = "ScrLock"

Case 186
KeyName = ";"
Case 187
KeyName = "="
Case 188
KeyName = ","
Case 189
KeyName = "-"
Case 190
KeyName = "."
Case 191
KeyName = "/"
Case 192
KeyName = "`"

Case 219
KeyName = "["
Case 220
KeyName = "/"
Case 221
KeyName = "]"
Case 222
KeyName = "'"
End Select
End Function

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Constants

VK_LBUTTON (01)

Left mouse button

VK_RBUTTON (02)

Right mouse button

VK_CANCEL (03)

Control-break processing

VK_MBUTTON (04)

Middle mouse button (three-button mouse)

VK_XBUTTON1 (05)

Windows 2000/XP: X1 mouse button

VK_XBUTTON2 (06)

Windows 2000/XP: X2 mouse button

- (07)

Undefined

VK_BACK (08)

BACKSPACE key

VK_TAB (09)

TAB key

- (0A-0B)

Reserved

VK_CLEAR (0C)

CLEAR key

VK_RETURN (0D)

ENTER key

- (0E-0F)

Undefined

VK_SHIFT (10)

SHIFT key

VK_CONTROL (11)

CTRL key

VK_MENU (12)

ALT key

VK_PAUSE (13)

PAUSE key

VK_CAPITAL (14)

CAPS LOCK key

VK_KANA (15)

Input Method Editor (IME) Kana mode

VK_HANGUEL (15)

IME Hanguel mode (maintained for compatibility; use VK_HANGUL)

VK_HANGUL (15)

IME Hangul mode

- (16)

Undefined

VK_JUNJA (17)

IME Junja mode

VK_FINAL (18)

IME final mode

VK_HANJA (19)

IME Hanja mode

VK_KANJI (19)

IME Kanji mode

- (1A)

Undefined

VK_ESCAPE (1B)

ESC key

VK_CONVERT (1C)

IME convert

VK_NONCONVERT (1D)

IME nonconvert

VK_ACCEPT (1E)

IME accept

VK_MODECHANGE (1F)

IME mode change request

VK_SPACE (20)

SPACEBAR

VK_PRIOR (21)

PAGE UP key

VK_NEXT (22)

PAGE DOWN key

VK_END (23)

END key

VK_HOME (24)

HOME key

VK_LEFT (25)

LEFT ARROW key

VK_UP (26)

UP ARROW key

VK_RIGHT (27)

RIGHT ARROW key

VK_DOWN (28)

DOWN ARROW key

VK_SELECT (29)

SELECT key

VK_PRINT (2A)

PRINT key

VK_EXECUTE (2B)

EXECUTE key

VK_SNAPSHOT (2C)

PRINT SCREEN key

VK_INSERT (2D)

INS key

VK_DELETE (2E)

DEL key

VK_HELP (2F)

HELP key

 (30)

0 key

 (31)

1 key

 (32)

2 key

 (33)

3 key

 (34)

4 key

 (35)

5 key

 (36)

6 key

 (37)

7 key

 (38)

8 key

 (39)

9 key

- (3A-40)

Undefined

 (41)

A key

 (42)

B key

 (43)

C key

 (44)

D key

 (45)

E key

 (46)

F key

 (47)

G key

 (48)

H key

 (49)

I key

 (4A)

J key

 (4B)

K key