请问怎样在 VB 中设置系统热键?

请问怎样在 VB 中设置系统热键?

答案：
用 VB 实现全局热键模块

调用全局热键的示例：
激活 3 个热键：（注：SetHotkey 是我自定义的函数）
SetHotkey 1, "Ctrl,112", "Add"         按 Ctrl+F1 激活指定程序
SetHotkey 2, 113, "Add"             按 F2 激活指定程序
SetHotkey 3, "Ctrl+Alt,113", "Add"     按 Ctrl+Alt+F2 激活指定程序
注释：注：关于激活热键后的操作，由自定义函数 SetHotkey 的 KeyId 传送的值来判断
注销 3 个热键：
SetHotkey 1, "", "Del"               退出程序是一定要用上的，不然会导至程序死掉
SetHotkey 2, "", "Del"
SetHotkey 3, "", "Del"
请大家新建一个模块（.bas）文件，自定义 SetHotkey函数及其他，这样在以后的任何程序中只要调用此模块就可以了。
注释：本模块是有关热键操作的
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long

Const WM_HOTKEY = &H312
Const MOD_ALT = &H1
Const MOD_CONTROL = &H2
Const MOD_SHIFT = &H4
Const GWL_WNDPROC = (-4)   注释：窗口函数的地址

Dim key_preWinProc As Long 注释：用来保存窗口信息
Dim key_Modifiers As Long, key_uVirtKey As Long, key_idHotKey As Long
Dim key_IsWinAddress   As Boolean 注释：是否取得窗口信息的判断


Function keyWndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

     If Msg = WM_HOTKEY Then
         Select Case wParam 注释：wParam 值就是 key_idHotKey
             Case 1 注释：激活 3 个热键后,3 个热键所对应的操作,大家在其他的程序中，只要修改此处就可以了
                 MsgBox "aa"
             Case 2
                 MsgBox "bb"
             Case 3
                 MsgBox "cc"
         End Select
     End If
    
     注释：将消息传送给指定的窗口
     keyWndproc = CallWindowProc(key_preWinProc, hwnd, Msg, wParam, lParam)
    
End Function

Function SetHotkey(ByVal KeyId As Long, ByVal KeyAss0 As String, ByVal Action As String)
     Dim KeyAss1 As Long
     Dim KeyAss2 As String
     Dim i As Long
    
     i = InStr(1, KeyAss0, ",")
     If i = 0 Then
         KeyAss1 = Val(KeyAss0)
         KeyAss2 = ""
     Else
         KeyAss1 = Right(KeyAss0, Len(KeyAss0) - i)
         KeyAss2 = Left(KeyAss0, i - 1)
     End If        
    
     key_idHotKey = 0
     key_Modifiers = 0
     key_uVirtKey = 0
    
     If key_IsWinAddress = False Then   注释：判断是否需要取得窗口信息，如果重复取得,再最后恢复窗口时，将会造成程序死掉
         注释：记录原来的window程序地址
         key_preWinProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC)
         注释：用自定义程序代替原来的window程序
         SetWindowLong Form1.hwnd, GWL_WNDPROC, AddressOf keyWndproc
     End If

     key_idHotKey = KeyId
     Select Case Action
         Case "Add"
             If KeyAss2 = "Ctrl" Then key_Modifiers = MOD_CONTROL
             If KeyAss2 = "Alt" Then key_Modifiers = MOD_ALT
             If KeyAss2 = "Shift" Then key_Modifiers = MOD_SHIFT
             If KeyAss2 = "Ctrl+Alt" Then key_Modifiers = MOD_CONTROL + MOD_ALT
             If KeyAss2 = "Ctrl+Shift" Then key_Modifiers = MOD_CONTROL + MOD_SHIFT
             If KeyAss2 = "Ctrl+Alt+Shift" Then key_Modifiers = MOD_CONTROL + MOD_ALT + MOD_SHIFT
             If KeyAss2 = "Shift+Alt" Then key_Modifiers = MOD_SHIFT + MOD_ALT
             key_uVirtKey = Val(KeyAss1)
             RegisterHotKey Form1.hwnd, key_idHotKey, key_Modifiers, key_uVirtKey 注释：向窗口注册系统热键
             key_IsWinAddress = True 注释：不需要再取得窗口信息
            
         Case "Del"
             SetWindowLong Form1.hwnd, GWL_WNDPROC, key_preWinProc 注释：恢复窗口信息
             UnregisterHotKey Form1.hwnd, key_uVirtKey 注释：取消系统热键
             key_IsWinAddress = False 注释：可以再次取得窗口信息
     End Select
来个简单的申明定义热键的API函数 
Private Declare Function GetAsyncKeyState Lib "user32" _ 
(ByVal vKey As Long) As Integer 

二、声明定义热键变量 
Private Function MyHotKey(vKeyCode) As Boolean 
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0) 
End Function 

三、在Timer1_Timer中加入： 
Private Sub Timer1_Timer() 
'定义热键 
If MyHotKey(vbKeyF12) Then 
Me.Visible = True '(设程序启动时窗体不可见) 
End If 
End Sub 

说明：以上代码是笔者一个程序中的一部分，运行成功。令人不解的是，按F12时不能太快，略按久一些，窗体才会弹出。是何原因，还望高手指点！

上一个：VB编译为P-代码是什么意思
下一个：求一段VB6 API读写注册表的代码