代码如下:
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
Private Sub Form_Load()
Timer1.Interval = 50
Label1.Caption = "热键是 F1"
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyF1) Then
MsgBox "你按下了热键！", , "热键提示"
End If
End Sub
控件:标签1个,时钟控件1个.
喜欢 
顶
难过
囧
围观
无聊
