每个键对应的ascii.txt

学习(编程技巧_编程知识_程序代码),是学习编程不可多得的学习精验

每个键对应的ASCII
 

--------------------------------------------------------------------------------
 
第八军团 时间：2004-1-9 15:30:13 
   
Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer) 
  Label4.Caption = KeyCode 
  Label2.Caption = "" 
  Label5.Caption = "" 
Cls 
Select Case KeyCode 
      Case 27 
        Label5.Caption = "Esc" 
      Case 37 
        Label5.Caption = "←" 
      Case 38 
        Label5.Caption = "↑" 
      Case 39 
        Label5.Caption = "→" 
      Case 40 
        Label5.Caption = "↓" 
      Case 112 
        Label5.Caption = "F1" 
      Case 113 
        Label5.Caption = "F2" 
    Case 114 
        Label5.Caption = "F3" 
    Case 115 
        Label5.Caption = "F4" 
    Case 116 
        Label5.Caption = "F5" 
    Case 117 
        Label5.Caption = "F6" 
    Case 118 
        Label5.Caption = "F7" 
    Case 119 
        Label5.Caption = "F8" 
    Case 120 
        Label5.Caption = "F9" 
    Case 121 
        Label5.Caption = "F10" 
    Case 122 
        Label5.Caption = "F11" 
    Case 123 
        Label5.Caption = "F12" 
    Case 13 
        Label5.Caption = "Enter" 
    Case 8 
        Label5.Caption = "Back" 
    Case 9 
        Label5.Caption = "Tab" 
    Case 16 
        Label5.Caption = "Shift" 
    Case 17 
        Label5.Caption = "Ctrl" 
    Case 20 
        Label5.Caption = "Caps Lock" 
    Case 91 
        Label5.Caption = "Windows" 
    Case 18 
        Label5.Caption = "Alt" 
    Case 32 
        Label5.Caption = "空格键" 
    Case 93 
        Label5.Caption = "Win→" 
    Case 45 
        Label5.Caption = "Insert" 
    Case 145 
        Label5.Caption = "Scroll Lock" 
    Case 19 
        Label5.Caption = "Break" 
    Case 36 
        Label5.Caption = "Home" 
    Case 35 
        Label5.Caption = "End" 
    Case 34 
        Label5.Caption = "Page Down" 
    Case 33 
        Label5.Caption = "Page Up" 
    Case 46 
        Label5.Caption = "Del" 
    Case 144 
        Label5.Caption = "Num Lock" 
    Case 12 
        Label5.Caption = "中心键" 
End Select 
End Sub 


Private Sub form_KeyPress(KeyAscii As Integer) 
Cls 
  Print KeyAscii 
  If kryascii = 13 Then 
    Label2.Caption = "Inter" 
  Else 
    Label2.Caption = Chr$(KeyAscii) 
End If 
End Sub