冬至快乐^-^ 第一次上传资源，收一个积分当作纪念，意思意思犒劳一下劳动成果呗，不用积分也可以的，就在我CSDN博客里面拿资源哈^-^ vb6控件一般都不支持【鼠标滚轮滚动事件】，那么我们利用消息处理机制（Hook消息处理函数），给控件增加一个鼠标滚轮滚动事件。 资源【VB6MouseWheel.zip】中包含VB6源码+示例exe。 代码示例是给一个文本框text增加一个“响应鼠标滚轮滚动的事件”，前滚+1，后滚-1，并将值返回填回文本框。如果您想实现自己的效果，只需要更改事件“Private Sub txtNum_MouseWheel(ByVal Delta As Long, ByVal Button As Long, ByVal X As Long, ByVal Y As Long)”中的代码即可。

vb6.0滚轮 控件

VB6编辑器 和 VBA编辑器 (Office 中的VB编辑器）都不支持鼠标滚动。但 MS 已经提供了补丁。 下载补丁后，直接双击，将其解压到某个目录，比如 D:\Program Files\VB6MouseWheel。解压后会有如下一些文件： 代码源文件： EULA.txt Main.bas VB6IDEMouseWheelAddin.vbp 生成文件： VB6IDEMouseWheelAddin.dll 注册插件文件： VBA Mouse Wheel Fix.reg 　　VB6MouseWheel 是以VB插件的方式运行的。刚才下载运行的那个安装程序并没有对其进行注册，所以现在还需要手工注册一下： 　　1. 打开“命令提示符”进入到 DOS 窗口中，进入到 VB6MouseWheel 的安装目录，运行 regsvr32.exe VB6IDEMouseWheelAddin.dll 将这个dll 注册到系统中。 　　2. 双击 VBA Mouse Wheel Fix.reg 文件，将其导入到注册表。 　　3. 打开 VB6 或者 VBA 编辑器，打开它的外接程序管理器，会看到列表里出现了“MouseWheel Fix”这一项。选择它并将其设置为“加载的”和“启动时加载”。 ok.

解决了ｖｂ６．０不能使用滚轮的问题vb6mousewheel.exe