关于 PeekMessage函数的问题我的目的是获取窗口的WM_CLOSE消息,于是编写了如下代码:在窗体中添加一个时钟
关于 PeekMessage函数的问题
我的目的是获取窗口的WM_CLOSE消息,于是编写了如下代码:
在窗体中添加一个时钟控件,达到即时监控的目的
Private Sub Timer1_Timer()
Dim lMsg As MSG
WaitMessage
n = PeekMessage(lMsg, Me.hwnd, WM_CLOSE, WM_CLOSE, PM_REMOVE)
If n <> 0 Then
MsgBox "已收到WM_CLOSE消息 "
End If
End Sub
以上程序执行后,当点击窗体上的那个关闭按钮时,程序并没有弹出收到消息的提示框..请问,是不是程序当中存在错误?请指点,谢谢(声明部分并无错误)
[解决办法]
建议使用子类化来拦截.
[解决办法]
http://www.m5home.com/bbs/dispbbs.asp?boardID=2&ID=22&page=1 (拦截WM_MOUSEWHEEL例子)
http://www.m5home.com/bbs/dispbbs.asp?boardID=2&ID=19&page=1 (拦截WM_GETTEXT例子)
[解决办法]
timer的精度可能不够
[解决办法]
你直接处理unload消息不好么?
[解决办法]
跨进程消息钩子需要vc或delphi编写一个标准win32 dll来供vb调用
不清楚vb编写的标准win32 dll能否钩住