第1个回答 2012-02-06
'添加一个timer 两个command
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Private Sub Command1_Click()
Me.Caption = "是"
End Sub
Private Sub Command2_Click()
Me.Caption = "否"
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyReturn) Then '检查是否热键被按下,这里是按下回车
Command1_Click
End If
If GetAsyncKeyState(vbKeyEscape) Then 'ESC
Command2_Click
End If
End Sub本回答被提问者采纳