其实在第一期创建了对话框窗口之后这个消息泵就已经可以登场了原因是这样的大家尝试下在窗口显示之后打打字看看字符是不是全部输入到Excel表格当中了这个现象已经说明了我们的对话框是接收不到键盘输入的。窗口无法接收键盘输入这个问题会在后续窗口完善中愈发严重不管是创建出来用于搜索的编辑框还是虚拟列表的标头筛选框都无法输入任何一个字符。所以我们本期来一个防患于未然。VBA消息泵的完整应用要想让我们的个人窗口能够接收到键盘输入就必须要用到本期的消息泵。其实如果你有在百度上搜索关于VBA消息泵的使用案例那你肯定会发现这类的文章少的可怜甚至都找不到......但没关系晚间现在就能给你完整使用教学1. 必要的API函数和结构声明#If VBA7 And Win64 Then Private Declare PtrSafe Sub PostQuitMessage Lib user32 (ByVal nExitCode As Long) Private Declare PtrSafe Function GetMessageA Lib user32 (lpMsg As MSGTYPE, ByVal hwnd As LongPtr, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long Private Declare PtrSafe Function IsDialogMessageA Lib user32 (ByVal hDlg As LongPtr, lpMsg As MSGTYPE) As Long Private Declare PtrSafe Function TranslateMessage Lib user32 (lpMsg As MSGTYPE) As Long Private Declare PtrSafe Function DispatchMessageA Lib user32 (lpMsg As MSGTYPE) As LongPtr #Else Private Declare Sub PostQuitMessage Lib user32 (ByVal nExitCode As Long) Private Declare Function GetMessageA Lib user32 (lpMsg As MSGTYPE, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long Private Declare Function IsDialogMessageA Lib user32 (ByVal hDlg As Long, lpMsg As MSGTYPE) As Long Private Declare Function TranslateMessage Lib user32 (lpMsg As MSGTYPE) As Long Private Declare Function DispatchMessageA Lib user32 (lpMsg As MSGTYPE) As Long #End If #If VBA7 And Win64 Then Private Type POINTAPI x As Long y As Long End Type Private Type MSGTYPE hwnd As LongPtr message As Long wParam As LongPtr lParam As LongPtr time As Long pt As POINTAPI End Type #Else Private Type POINTAPI x As Long y As Long End Type Private Type MSGTYPE hwnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type #End If2. 阻塞式消息循环的建立代码要知道系统消息一次性会产生很多个像是用户在移动鼠标时会一直产生的移动消息等它们会被各个窗口捕获并处理。因此我们需要一个循环来持续的泵取系统消息分发给我们的对话框窗口。Dim Gsm As MSGTYPE, Rtu Do While True Rtu GetMessageA(Gsm, 0, 0, 0) If Rtu 0 Or Rtu -1 Then Exit Do Else If IsDialogMessageA(Ud.Dialog, Gsm) 0 Then TranslateMessage Gsm DispatchMessageA Gsm End If End If Loop所以在代码的最外层我们添加了一个循环条件永远满足的Do While语句当代码运行到这里后就会无限的泵取消息。如果循环条件永远满足的话那什么时候结束循环呢接着我们添加了一个叫做GetMessage的函数这个函数在接收到消息之后会返回一个数值只有当接收到WM_QUIT消息时会返回零值当遇到错误时会返回-1这就是结束循环的方法当GetMessage函数返回非零值时则将该消息转换分发来让当前窗口接收。3. 阻塞式消息循环的终止代码PostQuitMessage 0在这句代码运行之后我们的消息循环就会因为Rtu0而结束。4. 防止中断循环导致弹窗提示重要在进入消息循环之前你需要忽略VBA默认的中断事件比如用户连按Esc键或是CtrlBreak。先记录原来的默认值再赋予新值 Ud.EnableCancelKey Application.EnableCancelKey Application.EnableCancelKey xlDisabled窗口关闭时恢复原来的默认值 Application.EnableCancelKey Ud.EnableCancelKey因为这些操作会造成代码运行中断的弹窗提示。然而我们的个人窗口项目又离不开子类化技术在子类化的过程中一旦遇到代码调试的现象必定导致程序崩溃代码运行中断的弹窗提示相关阅读https://club.excelhome.net/thread-1727175-1-1.htmlhttps://mp.weixin.qq.com/s/wKWfdbGwon6Zqu7q-RrnTQ