代码如下:KrBHTML5中文学习网 - HTML5先行者学习网
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As IntegerKrBHTML5中文学习网 - HTML5先行者学习网
Private Function MyHotKey(vKeyCode) As BooleanKrBHTML5中文学习网 - HTML5先行者学习网
MyHotKey = GetAsyncKeyState(vKeyCode) < 0KrBHTML5中文学习网 - HTML5先行者学习网
End FunctionKrBHTML5中文学习网 - HTML5先行者学习网
Private Sub Form_Load()KrBHTML5中文学习网 - HTML5先行者学习网
Timer1.Interval = 50KrBHTML5中文学习网 - HTML5先行者学习网
Label1.Caption = "热键是 F1"KrBHTML5中文学习网 - HTML5先行者学习网
End SubKrBHTML5中文学习网 - HTML5先行者学习网
Private Sub Timer1_Timer()KrBHTML5中文学习网 - HTML5先行者学习网
If MyHotKey(vbKeyF1) ThenKrBHTML5中文学习网 - HTML5先行者学习网
MsgBox "你按下了热键!", , "热键提示"KrBHTML5中文学习网 - HTML5先行者学习网
End IfKrBHTML5中文学习网 - HTML5先行者学习网
End SubKrBHTML5中文学习网 - HTML5先行者学习网
控件:标签1个,时钟控件1个.KrBHTML5中文学习网 - HTML5先行者学习网