用於 KeyDown、KeyUp 事件

範例：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyControl Then MsgBox "您按下了 Ctrl 鍵唷", vbInformation
If KeyCode = 13 Then MsgBox "您按下了 Enter 鍵唷", vbInformation

End Sub

數字鍵/運算元/符號鍵
vbKey0 = 48
vbKey1 = 49
vbKey2 = 50
vbKey3 = 51
vbKey4 = 52
vbKey5 = 53
vbKey6 = 54
vbKey7 = 55
vbKey8 = 56
vbKey9 = 57

數字盤
vbKeyNumpad0 = 96
vbKeyNumpad1 = 97
vbKeyNumpad2 = 98
vbKeyNumpad3 = 99
vbKeyNumpad4 = 100
vbKeyNumpad5 = 101
vbKeyNumpad6 = 102
vbKeyNumpad7 = 103
vbKeyNumpad8 = 104
vbKeyNumpad9 = 105
vbKeyMultiply = 106 *
vbKeyAdd = 107 +
vbKeySeparator = 108 無法偵測
vbKeySubtract = 109 -
vbKeyDecimal = 110 .
vbKeyDivide = 111 /

英文字母鍵
vbKeyA = 65
vbKeyB = 66
vbKeyC = 67
vbKeyD = 68
vbKeyE = 69
vbKeyF = 70
vbKeyG = 71
vbKeyH = 72
vbKeyI = 73
vbKeyJ = 74
vbKeyK = 75
vbKeyL = 76
vbKeyM = 77
vbKeyN = 78
vbKeyO = 79
vbKeyP = 80
vbKeyQ = 81
vbKeyR = 82
vbKeyS = 83
vbKeyT = 84
vbKeyU = 85
vbKeyV = 86
vbKeyW = 87
vbKeyX = 88
vbKeyY = 89
vbKeyZ = 90
vbKeySpace = 32 空白鍵

控制燈
vbKeyNumlock = 144 Num Lock
vbKeyScrollLock = 145 Scroll Lock
vbKeyCapital = 20 Caps Lock

游標控制
vbKeyUp = 38 ↑
vbKeyDown = 40 ↓
vbKeyLeft = 37 ←
vbKeyRight = 39 →
vbKeyHome = 36
vbKeyEnd = 35
vbKeyPageUp = 33
vbKeyPageDown = 34
vbKeyInsert = 45
vbKeyDelete = 46
vbKeyBack = 8 Backspace
vbKeyReturn = 13 Enter
vbKeyTab = 9 無法偵測

控制鍵
vbKeyMenu = 18 Alt
vbKeyControl = 17 Ctrl
vbKeyShift = 16 Shift
vbKeyF1 = 112
vbKeyF2 = 113
vbKeyF3 = 114
vbKeyF4 = 115
vbKeyF5 = 116
vbKeyF6 = 117
vbKeyF7 = 118
vbKeyF8 = 119
vbKeyF9 = 120
vbKeyF10 = 121
vbKeyPause = 19
vbKeyPrint = 42 無法偵測
vbKeyEscape = 27 Esc
vbKeyExecute = 43 鍵盤上沒有對應的按鍵@@"
vbKeySnapshot = 44 鍵盤上沒有對應的按鍵@@"
vbKeyClear = 12 鍵盤上沒有對應的按鍵@@"
vbKeyCancel = 3 鍵盤上沒有對應的按鍵@@"
vbKeySelect = 41 鍵盤上沒有對應的按鍵@@"

滑鼠鍵
vbKeyLButton = 1 左鍵
vbKeyMButton = 4 中鍵
vbKeyRButton = 2 右鍵

--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162