- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - (建议采用1024×768分辨率,以达到最佳视觉效果) Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0 |
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)
{
我要申请本站:N点 | 黑客防线官网 | |
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479 |