欢迎来到Java学习网!
设为首页 | 加入收藏
当前位置: 首页 > 编程开发 > VB语言 >

窗体上放个Timer1,Interval设为100,Enabled为true
代码如下
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 Timer1_Timer()
If MyHotKey(vbKeyF4) Then MsgBox "你按下了F4"
End Sub

可以啊,是我写的多了,vbKeyF4是vb常数F4的键码,你可以改成其它的键码,如果组合键再加组合键的判断,如Shift+f4改成下面代码

Private Sub Timer1_Timer()
If MyHotKey(vbKeyF4) and MyHotKey(vbKeyShift)Then MsgBox "你按下了Shift+F4"
End Sub

    相关教程
    推荐内容