本文共 3572 字，大约阅读时间需要 11 分钟。

最近弄这个很头疼了,没多少基础,不好理解,现在弄清楚了,这里总结一下.

先说要用到的API

SetWindowLong

上面两个函数都要用到GWL_WNDPROC = (-4)这个常数

CallWindowProc

RegisterHotKey

因为VB本身不处理热键消息,有关此消息请参考MSDN上的说明

所以,我们要自己写消息处理函数来处理热键消息,

窗体的消息处理函数,是一个名叫WindowProc的回调函数,每个窗口都有一个这样的函数用来处理各种消息,

因为它要处理各种不同种类的消息进行不同的判断,所以一般是一个相当大的函数,不过我们不需要重写它,毕竟这是很耗时间的事情,

我们只需要增加一点点专门处理热键消息的过程就可以了,把其他的消息交给原来窗口的WindowProc,这样就可以省很多事.

但是,VB本身对于WindowProc是在编译的时候添加进去的,没有给我们留下编辑的余地,所以,得用其他变通的方法解决.

这里的思路是:先让自己写的过程收到消息判断是否是热键消息,然后再进行进一步判断和需要的过程调用,如果不是热键消息,就把消息归还给原来的窗口.

下来说具体的实现例子

以添加一个Alt+N的热键用来隐藏/显示窗口为例(就是通常说的老板键)

关于虚拟键码请参考

或MSDN

关于WM_HotKey热键消息的结构请参考

'*********************'以下代码需要'一个窗体,名为frm_Main'一个标准模块'*********************'--------------------------------------------'frm_Main的代码Option ExplicitPrivate Sub Form_Load()    preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)'得到原窗口过程地址,保存在变量preWinProc    SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc''将窗口地址设置成我们写的消息处理函数的地址,AddressOf用来返回一个过程的地址,这样系统发送的消息就会先进入我们定义的WndProc供我们处理    RegisterHotKey Me.hWnd, 1, MOD_ALT, vbKeyN '装载时注册热键End SubPrivate Sub Form_Unload(Cancel As Integer)    SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc'将窗口过程地址还原    UnregisterHotKey Me.hWnd, 1 '释放热键供其它应用程序使用    EndEnd Sub'--------------------------------------------'module1的代码Option Explicit'变量Public preWinProc As Long '存储原本的窗口过程的地址'常量Public Const GWL_WNDPROC = (-4) '这个常数供GetWindowLong和SetWindowLong使用以得到和设置窗口过程地址Public Const WM_HOTKEY = &H312 '热键消息常数,用来判断消息是否为热键消息的常数Public Const MOD_ALT = &H1 'RegisterHotKey和UnregisterHotKey用到的表示按下Alt键的常数'API声明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 LongPublic 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'过程Sub Main()    If App.PrevInstance = True Then    '如果如果已经运行就自己退出        MsgBox "程序已经运行!", vbOKOnly, "提示"        End    End If    frm_Main.ShowEnd SubPublic 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 '如果是本程序定义的(系统消息中的wParam参数在热键消息中代表热键标示符,是在RegisterHotKey注册热键的时候定义的一个整数,如果热键是系统定义的,则标示符取值为-1或-2,详见开头                Call WindowShowHide ' 热键对应上了之后就调用指定的过程                Exit Function '消息已处理,不需要发回窗口        End If    End If    WndProc = CallWindowProc(preWinProc, hWnd, Msg, wParam, lParam)'不是热键消息,就把消息发给原来窗口过程交给它处理End FunctionPublic Sub WindowShowHide() ' 用于隐藏显示窗口	Select Case frm_Main.Visible		Case True			frm_Main.Hide		Case False			frm_Main.Show	End SelectEnd Sub 这样,运行之后,反复按Alt + N 就可以实现窗口的隐藏与显示

转载地址：https://blog.csdn.net/FranticBlack/article/details/6708278 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！