VB6.0对鼠标滚轮不支持的解决方法

VB6.0对鼠标滚轮不支持的解决方法

2007-10-09 03:00 作者： 佚名 出处： 论坛整理 责任编辑：幽灵

　　由于VB6.0对鼠标滚轮不支持，往往给大家的工作和学习带来很多不方便，发生此问题是因为 Visual Basic 6.0 IDE 对通过使用鼠标轮滚动内置不支持，微软官方给出了两种方法，大家都可以试一试：

　　方法 1

　　下载 VB 6 鼠标 Wheel.exe 文件， 包括加载 DLL 和代码用于创建加载项 DLL。 1.下载 VB 6 鼠标 Wheel.exe 文件，应运行。 可用于从 Microsoft 下载中心下载下列文件：

　　Download the VB6MouseWheel.EXE package now. (http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe)

　　2.单击 开始，单击 运行，键入 regsvr 32 < 路径 > /VB6IDEMouseWheelAddin.dll 。(建议把VB6IDEMouseWheelAddin.dll 直接COPY到系统文件夹下，这样可以直接运行regsvr32 VB6IDEMouseWheelAddin.dll )

　　3.启动 Visual Basic 6.0。

　　4.单击加载项，然后单击 加载项管理器 。

　　5.在加载项管理器列表, 单击 MouseWheel fix 。

　　6.在available add-ins列表中，选择“mousewheel fix”，在load behavior栏中单击选中"loaded/unloaded和load on startup复选框

　　7.单击 确定 。

　　也可以生成 Visual Basic 6.0 中加载 DLL。 如果这样做, 加载 DLL 自动注册。 然后您可以按照步骤 4 到 7，加载 DLL。以生成该加载项 DLL, 单击 文件 菜单上 生成 VB6IDEMouseWheelAddin.dll 。

　　方法 2

　　返回到 MicrosoftIntelliPoint 软件的早期版本。 要这样做, 请按照下列步骤操作：

　　1.如果计算机上安装 IntelliPoint 软件是版本 4.9 或更高版本, 从计算机删除 IntelliPoint 软件。

　　2.安装 IntelliPoint 4.12 软件版本。 可用于从 Microsoft 下载中心下载下列文件：

　　Download the IntelliPoint 4.12 package now. (http://www.microsoft.com/downloads/details.aspx?FamilyID=4348502a-61be-4072-abe2-e3fc3aa0eee6&amp;amp;DisplayLang=en)

　　注意 您也可在大多数 VBA 环境使用此加载项。 如前所述安装加载宏， 用下列值创建 .reg 文件并与您注册表合并它。

　　Windows 注册表编辑器 5.00 版本

　　HKEY_CURRENT_USER/Software/Microsoft/VBA/VBE/6.0/Addins/VB6IDEMouseWheelAddin.Connect •" FriendlyName " = " MouseWheel 修复 "

　　•" CommandLineSafe " = dword:00000000

　　•" LoadBehavior " = dword:00000000

　　注意 如果放在 HKEY _ LOCAL _ MACHINE 它们可能会忽略这些项。