【转载】VB滚轮插件（win7 64位）

    在五楼的时候电脑里的VB都已经预装好了滚轮插件了，这次下四楼用自己的电脑才发现那么一个小小的东西真心很方便。想安装一个，按照网上的教程发现了一点点小问题，最后当然完美解决啦，分享一下。已经知道的童鞋呢，忽略就好啦!

首先，请看一篇转帖：(看不看无所谓，这个只是表示对原创作者的尊重....想省事直接看下面红颜色的字就可以了）

这是原帖地址：http://tieba.baidu.com/p/1969613735

不知道阅读这篇帖子的朋友有没有遇到跟在下一样问题：VB6.0没有内置加载项来提供鼠标滚轮支持的功能。如果代码量少的话还能将就，要是碰到几百行的代码简直是无法忍受的。于是百度一下有没有这样的东西，结果还真找到了。原来人家微软也发现了VB这个令人烦扰的症结所在，因此及时的提供了补丁。这里给一个官方的下载链接：http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe。下载后解压到指定的文件夹，找到VB6IDEMouseWheelAddin.dll这个文件，将它复制到C:\Windows\System32目录下，点击【运行】，输入：regsvr32 VB6IDEMouseWheelAddin.dll，然后......

然后竟然出问题了！嘿嘿，请注意这篇文章的标题，问题的产生是在WIN7系统下，在XP系统下，经本人试验，以上步骤是没有问题的。那么Win7下会遇到什么问题呢？

按照上述步骤，你运气好的话也许会成功，但是一般会看到这样的错误提示：模块“C:\Windows\System\VB6IDEMouseWheelAddin.dll”已加载，但是对DllRegisterServer的调用失败，错误代码OX80004005。这是神马情况？起初我很困惑，还以为是微软的补丁包没有针对Win7系统，所以郁闷了一阵子，都想忍痛把VB6.0卸载了，从此投向.Net的怀抱。但是一次偶然的“百度一下”，让我发现了问题的原因。

原来归根结底是Win7系统比XP系统更严谨的安全机制问题。出现DllRegisterServer失败这样的问题是因为没有提供足够的权限，解决的方法如下：

1. 重复前述步骤，确保文件VB6IDEMouseWheelAddin.dll成功解压并且已经复制到C:\Windows\System32文件夹下（如果系统盘符不是C的，自行做相应调整）。

2. 点击【开始】-【所有程序】-【附件】，鼠标移到【命令提示符】(即cmd)，右击，然后在弹出的菜单中选择【以管理员身份运行】，弹出cmd的运行界面，输入：regsvr32 空格 VB6IDEMouseWheelAddin.dll,点击【enter】.OK,操作无误的话就能看到成功的提示了。

3. 打开VB的IDE开发环境，点击【外接程序】-【外接程序管理器】-选中【MouseWheel Fix】，在【加载行为】中勾选【在启动中加载】和【加载/卸载】。OK!大功告成！感谢上帝，VB6.0终于又愉快地回到了我身边......

 

下面这才是我想要说得：以上只适用于WIN7的32位版本，因为我的电脑是win7 64位，所以，用上面的方法没有成功。解决方法是：将VB6IDEMouseWheelAddin.dll复制到C:\Windows\SysWOW64文件夹中！

 需要文件的的网盘链接：https://yunpan.cn/cYxNJkK7c8iJ6  访问密码 0e17

重新整理一下步骤：

1、把文件  VB6IDEMouseWheelAddin.dll 复制到c:\WINDOWS\sysWow64文件夹中。

2、Win+R 输入Regsvr32  C:\Windows\SysWOW64\VB6IDEMouseWheelAddin.DLL（注意：Regsvr32 和C：之间要有一个空格）点“确定”。弹出下面这个对话框就是成功了。

                      

 

3、打开VB软件，点击 外接程序 - 外接程序管理器 - 选中 MouseWheel Fix 。

 勾选  “启动中加载” 和 “加载/卸载 ”。

     OK 大功告成 可爱的滚轮功能回来了！