VB操作鼠标的自定义类DIYMouse类.docVIP

DIYMouse类 一DIYMouse类(使用说明) 1、属性 CurrentX 指针当前坐标的X值 CurrentY 指针当前坐标的Y值 2、方法 PointGoto(x1, y1) 指针移动到屏幕位置 LeftClick 单击左键 RightClick 单击右键 MiddleClick 单击中键 DoubleClick 双击左键 LeftDown 左键按下 LeftUp 左键弹起 RightDown 右键按下 RightUp 右键弹起 MiddleDown 中键按下 MiddleUp 中键弹起 3、示例 Option Explicit Dim M As New DIYMouse Private Sub Command1_Click() Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Me.Caption = M.CurrentX , M.CurrentY 在标题上显示鼠标当前位置 End Sub Private Sub Command2_Click() M.PointGoto 200, 300 鼠标移动到屏幕坐标(200,300)位置(单位是像素) M.LeftClick 单击左键 M.RightClick 单击右键 M.MiddleClick 单击中键 M.DoubleClick 双击左键 M.LeftDown 按下左键(不松开) M.LeftUp 弹起左键(松开) ……省略，其余功能暂不一一列举 End Sub 二 DIYMouse类(代码) Option Explicit DIYMouse类 获取鼠标指针在屏幕上的坐标 Private Declare Function GetCursorPos Lib user32 (lpPoint As PointAPI) As Long 设置鼠标指针在屏幕上的坐标 Private Declare Function SetCursorPos Lib user32 (ByVal sPointX As Long, ByVal _ sPointY As Long) As Long 鼠标事件 Private 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) Private Const MouseEventF_LeftDown = H2 左键按下 Private Const MouseEventF_LeftUp = H4 左键抬起 Private Const MouseEventF_MiddleDown = H20 中键按下 Private Const MouseEventF_MiddleUp = H40 中键抬起 Private Const MouseEventF_Move = H1 鼠标移动 Private Const MouseEventF_RightDown = H8 右键按下 Private Const MOUSEEVENTF_RightUp = H10 右键抬起 Private Const MouseEventF_ABSOLUTE = H8000 dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元 PointAPI数据类型 Private Type Point