VB实现简单的热键/快捷键功能

代码如下:

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个.

Vb6.0 精简版 评分:

3.4

类别： 编程工具    大小：5.9M    语言： 中文
查看详细信息 >>