VB form全局快捷键

来源：百度知道 编辑：UC知道 时间：2024/05/17 06:56:58
我的软件只有一个FORM，有时候在用的时候点了其他的软件，它就失去焦点了，有没有全局的快捷键，这样按一下之后就激活窗口了，这样就不要用鼠标点了，比较方便
那要打开程序内

添加一个timer空间interval属性设置为：1
开始写代码，我会标注注释的：
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
'然后在循环中或Timer的Timer事件中检测:
Private Sub Timer1_Timer()
If MyHotKey(vbKeyA) And vbKeyControl Then 'ctrl+A
End '关闭
End If
'其中vbkeyA是键盘〃A〃的常数，其他键可按F1查得。
End Sub

当按下ctrl+A 的时候程序就退出嘞！

失去焦点也ok！

Alt+Tab