用於 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