1。先使用: SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc) 它使用了GWL_WNDPROC 索引来创建窗口类的子类,通过这样设置 所有的消息都发给NewWindowProc 函数来接收 2。定义NewWindowProc: Private Function NewWindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long if Msg = WM_SYSCOMMAND and wParam = SC_MINIMIZE then debug.print "最小话" exit function end if NewWindowProc = CallWindowProc(m_OldWindowProc, hWnd, Msg, wParam, lParam)'把消息返回给窗口默认的处理函数 end Function
SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)
它使用了GWL_WNDPROC 索引来创建窗口类的子类,通过这样设置 所有的消息都发给NewWindowProc 函数来接收
2。定义NewWindowProc:
Private Function NewWindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
if Msg = WM_SYSCOMMAND and wParam = SC_MINIMIZE then
debug.print "最小话"
exit function
end if
NewWindowProc = CallWindowProc(m_OldWindowProc, hWnd, Msg, wParam, lParam)'把消息返回给窗口默认的处理函数
end Function