Option Explicit
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
Public Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
Public Const MOUSEEVENTF_WHEEL = &H800
Private Sub Command1_Click()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 100
DoEvents
mouse_event MOUSEEVENTF_WHEEL, 0, 0, 10, 0
Next
For i = 0 To 100
DoEvents
mouse_event MOUSEEVENTF_WHEEL, 0, 0, -10, 0
Next
End Sub
分享到:
相关推荐
VB6鼠标滚轮事件
用VB6实现的鼠标滚轮事件的源码! 可以增加IDE的鼠标滚轮事件!!
VB6内 响应鼠标滚轮事件,使用Hook钩子捕捉消息,具体处理过程需要自己编写
vb鼠标滚轮doc文档: vb鼠标事件.doc vb 捕获鼠标滚轮事件 怎么检测鼠标的滚轮事件!???? 在vb中,使窗体响应鼠标滚轮事件 VB 获得鼠标滚轮的事件 让VB 6.0 支持鼠标滚轮 让vb应用程序支持鼠标滚轮
1.解压文件到: a.X86目录: C:\WINDOWS\...2.打开VB的IDE开发环境,点击【外接程序】-【外接程序管理器】-选中【MouseWheel Fix】,在【加载行为】中勾选【在启动中加载】和【加载/卸载】,至此,鼠标滚轮起作用了
vb 滚轮 控制 鼠标滚轮
WIN10系统也可使用的VB6鼠标滚轮插件安装包,使用方法:下载后解压文件到(32位系统) C:\WINDOWS\system32(6位系统) C:\Windows\SysWoW64打开VB的IDE开发环境,在外接程序--外接程序管理器中选中MouseWheel Fix,...
VB6.0鼠标滚轮插件,内有说明书,很爽的!
不用安装,注册一下里面的那个VB6IDEMouseWheelAddin.dll文件,然后打开vb6.0编译器,打开 外接程序管理器,加载 mousewheel fix 选项 ,而且将 在启动中加载 前面打钩。 会注册dll动态连接库吗? 将 VB6...
使用本dll即可搞定,放到windows\System32下,使用regsvr32 注册之,然后在vb6里设置Add-in,选择mousewheel fix那个,把装载选项全勾上,发现在代码页用滚轮鼠标可以翻页了,OK! (不过有时候会失灵,但总体来...
在Visual Basic重用API函数模拟鼠标单击事件
微软官网-VB支持鼠标滚轮微软官网-VB支持鼠标滚轮
如何让VB应用程序支持鼠标滚轮?MSDN上有一篇解决VB下应用Intellimouse鼠标的文章,它解决这一问题的方法是通过一个几十K的第三方控件实现的,可惜该控件没有源代码。况且为了支持鼠标滚轮使用一个第三方控件,好像...
VB模拟鼠标左键单击和移动,单击按钮后,鼠标会移动到正中间,产生向上或向下滚动鼠标滚轮事件,如果鼠标在其他应用程序窗口之上,获取鼠标下窗口中的鼠标句柄,并且代码中有一个键盘函数很实用哦。
VB鼠标滚轮驱动下载、VB鼠标滚轮驱动下载、
VB6代码界面滚轮支持dll
演示如何使vb编程环境下,支持鼠标可以通过滚轮操作
VB6.0开发环境 不支持鼠标滚轮。该控件可以使用鼠标滚轮来查看代码窗口。 是可以直接添加外接程序的方式,不是单独运行的插件。
让VB 6.0 支持鼠标滚轮(VBMousewheel.dll)