Question

VB全局热键

我需要一个VB热键的样本。可以添加多个的并且是全局的（即当窗体不为活动窗体时也能生效）。要可以修改热键以及按下热键后执行的代码（标注一下）。不要用timer编写。

最好说明每句的作用。特别是一些API函数以及一些复杂的赋值。

先挂上10分，好的再按质量追加（我不吝啬分数的）

Answer 1

主窗体代码如下：
Option Explicit

'程序启动时注册功能热键F12
Private Sub Form_Load()
Dim Modifiers As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
uVirtKey = vbKeyDelete
RegisterHotKey Me.hWnd, 1, Modifiers, uVirtKey
End Sub

'当程序被关闭时，取消已经注册的热键
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc
UnregisterHotKey Me.hWnd, uVirtKey '取消系统级热键,释放资源
End '终止程序运行
End Sub

添加一个标准模块，代码如下
Option Explicit

'在窗口结构中为指定的窗口设置信息
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'从指定窗口的结构中取得信息
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'运行指定的进程
Public 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
'向系统注册一个指定的热键
Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal ID As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
'取消热键并释放占用的资源
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal ID As Long) As Long
'上述五个API函数是注册系统级热键所必需的，具体实现过程如后文所示

'热键标志常数,用来判断当键盘按键被按下时是否命中了我们设定的热键
Public Const WM_HOTKEY = &H312
Public Const GWL_WNDPROC = (-4)

'定义系统的热键,原中断标示,被隐藏的项目句柄
Public preWinProc As Long, MyhWnd As Long, uVirtKey As Long

'热键拦截过程
Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then '如果拦截到热键标志常数
If wParam = 1 Then '如果是我们的定义的热键...
HideDone '执行隐藏鼠标所指项目
End If
End If
'如果不是热键,或者不是我们设置的热键,交还控制权给系统,继续监测热键
WndProc = CallWindowProc(preWinProc, hWnd, Msg, wParam, lParam)
End Function

'最关键的项目隐藏过程
Public Sub HideDone()
MsgBox "按下了Delete键"
End Sub

追问

两个问题：
1.更改F12的问题，是不是在RegisterHotKey Me.hWnd, 1, Modifiers, uVirtKey改参数？改那个？
2.如何添加组合键

追答

改这里
uVirtKey = vbKeyDelete

追问

vbKeyDelete不是DELETE的ascll码吗

追答

不是，那是一个常量。。

追问

如果需要添加多个热键呢

追答

RegisterHotKey Me.hWnd, 1, Modifiers, uVirtKey1
RegisterHotKey Me.hWnd, 2, Modifiers, uVirtKey2
......

追问

那么所执行的代码呢？
Public Sub HideDone()
MsgBox "按下了Delete键"
End Sub
这里要怎么改？

追答

用这里判断是按下了哪个热键。

追问

不是，这里是我按下uVirtKey1所执行的代码，那么我按下uVirtKey2写在哪儿呢

追答

用这里判断按下了什么热键
If wParam = 1 Then '如果是我们的定义的热键...

Answer 2

用全局热键
运行后程序自动隐藏，按快捷键自动出现
'第一步:

'新建一个窗口,将以下代码复制进去 注册热键为:'Ctrl+Alt+P

Private Sub Form_Load()
form1.hide
Dim ret As Long
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)
idHotKey = 1
Modifiers = MOD_Alt + MOD_Ctrl
uVirtKey = vbKeyP
ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
Call UnregisterHotKey(Me.hwnd, uVirtKey)
End Sub

'第二步

'新建立一个模块,然后将以下内容复制到模块中
Option Explicit

Declare
Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd
As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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
Declare
Function RegisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As
Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Declare Function UnregisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const MOD_Alt = &H1
Public Const MOD_Ctrl = &H2
Public Const MOD_Shift = &H4
Public Const GWL_WNDPROC = (-4)

Public preWinProc As Long
Public Modifiers As Long, uVirtKey As Long, idHotKey As Long

Private Type taLong
ll As Long
End Type

Private Type t2Int
lWord As Integer
hWord As Integer
End Type

Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
If wParam = idHotKey Then
Dim lp As taLong, i2 As t2Int
lp.ll = lParam
LSet i2 = lp
If (i2.lWord = Modifiers) And i2.hWord = uVirtKey Then
form1.show
End If
End If
End If
Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function
老师给解释一下这和白 用了快一年了不知道啥意识