form1.frm

来自「本文件包含200个visual baisc实例」· FRM 代码 · 共 52 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "判断按下键盘的键值"
   ClientHeight    =   1755
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3180
   LinkTopic       =   "Form1"
   ScaleHeight     =   1755
   ScaleWidth      =   3180
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   420
      Left            =   855
      TabIndex        =   1
      Top             =   1155
      Width           =   1485
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "请按A、B、C、D任意键等"
      ForeColor       =   &H00FF0000&
      Height          =   210
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
  Case 65
    MsgBox "我是A键，请不要按我"
  Case 66
    MsgBox "我是B键"
  Case 67
    MsgBox "我是C键"
  Case 68
    MsgBox "我是D键"
  End Select
End Sub

Private Sub Command1_Click()
  End
End Sub