让VB发环境支持鼠标滚轮.docVIP

让VB开发环境支持鼠标滚轮 Visual Basic 6.0的集成开发环境中的代码编辑器不支持鼠标滚轮的操作，这给使用VB的人带来了很多不便，为了使它能支持鼠标滚轮操作，我制作了一个小程序帮它实现该功能。 这个程序实现的原理是，使用全局钩子截获窗口消息，通过相应滚轮消息，向VB编辑窗口发送视图滚动消息实现VB编辑窗口对鼠标滚轮的响应。 首先，建立一个MFC的Dll工程，向工程中添加下列函数： 下面这个函数用于安装钩子，之所以将其声明为这种形式，主要是考虑到其可扩展性。 BOOL __declspec(dllexport)__stdcall InstallHook(int nIDHook,const HINSTANCE hMod,DWORD dwThreadId) { AFX_MANAGE_STATE(AfxGetStaticModuleState()); BOOL bResult; HINSTANCE hInstance=NULL; if(hMod==NULL) { hInstance=AfxGetInstanceHandle(); }else { hInstance=hMod; } switch(nIDHook) { case WH_CALLWNDPROC: if(g_hWinProc!=NULL) { bResult=TRUE; break; } g_hWinProc=SetWindowsHookEx(WH_CALLWNDPROC,(HOOKPROC)ProcessWndProc,hInstance,dwThreadId); if(g_hWinProc!=NULL) { bResult=TRUE; } break; case WH_GETMESSAGE: if(g_hMsgProc!=NULL) { bResult=TRUE; break; } g_hMsgProc=SetWindowsHookEx(WH_GETMESSAGE,(HOOKPROC)ProcessMsgProc,hInstance,dwThreadId); if(g_hMsgProc!=NULL) { bResult=TRUE; } break; default: bResult=FALSE; break; } return bResult; } 下面这个函数用于卸载钩子，与前一个函数对应。 BOOL __declspec(dllexport)__stdcall? UninstallHook(int nIDHook) { BOOL bResult; switch(nIDHook) { case WH_CALLWNDPROC: bResult=UnhookWindowsHookEx(g_hWinProc); g_hWinProc=NULL; break; case WH_GETMESSAGE: bResult=UnhookWindowsHookEx(g_hMsgProc); g_hMsgProc=NULL; break; default: bResult=TRUE; } return bResult; } 下面的函数就是对PostMessage发送的消息的响应函数，其中对鼠标滚轮事件进行了响应，使VB支持滚轮。 LRESULT __declspec(dllexport)__stdcall CALLBACK ProcessMsgProc( int nCode,????? // hook code WPARAM wParam,? // current-process flag LPARAM lParam?? // address of structure with message data ) { AFX_MANAGE_STATE(AfxGetStaticModuleState()); int n=0; MSG *pMessage=(MSG*)lParam; CWnd *pWnd=NULL; CWnd *pScroll=NULL; char buf[256]; if(pMessage-message==WM_MOUSEWHEEL g_bVBHelper) { pWnd=CWnd::FromHandle(pMessage-hwnd); if(pWnd!=NULL) { ::GetClassName(pMessage-hwnd,buf,255); CString sWndClass(buf); if(sWndClass.Compare(VbaWindow)==0) { pScroll=pWnd-GetWindow(GW_CHILD); while(pScroll!=NULL) { ::GetClassName(pScroll-GetSafeHwnd(),buf,2