VB 实现简单的热键/快捷键功能_编程语言综合
2014-03-12 23:28:35
[小 大]
已经帮助：人解决问题
代码如下:
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个.
（责任编辑：）
