鼠标APi函数

发布时间:2017-05-07 09:04

爱学习的小伙伴们,你们知道什么是鼠标APi函数吗?不知道的话跟着小编一起来学习了解什么是鼠标APi函数。

鼠标APi函数

得到当前鼠标指针的坐标:GetCursorPos函数

声明:

public Type POINTAPI

x As Long

y As Long

End Type

Public Declare Function GetCursorPos Lib "user32" _

(lpPoint As POINTAPI) As Long 参数缺省为byref指针传递

调用:先声明一个自定义类型变量: Dim z As POINTAPI

Private Sub Timer1_Timer()

GetCursorPos z 注:这里z是引用地址传递,其值改变,就象"返回值"

Label1.Caption = z.x

Label2.Caption = z.y

End Sub

参数lpPoint返回鼠标在屏幕上坐标(不限于程序窗体),如将鼠标指针移到屏幕左上角时,z.x=0,z.y=0,而鼠标移到屏幕右下角时,z.x=639;z.y=477

===========================================================

设置鼠标在屏幕上的坐标 : SetCursorPos函数

声明:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

调用如:Private Sub Command1_Click()

Call SetCursorPos(600, 100) 将鼠标定位到屏幕(600,100)处。

End Sub

很简单,注:屏幕是以象素为单位的(与屏幕分辨率设定有关)。不是缇。

==========================================================

自动按下鼠标按纽:mouse_event过程函数

该过程能在程序中模拟手工按下或抬起鼠标,移动鼠标的操作,声明:

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)

一般只用它的第1个参数,指明按下或抬起哪个按纽,如果要模拟鼠标移动,则要用到第2,3个参数dx和dy, 而最后面两个参数始终不用。

第1个参数dwFlags的可能设置值如下:

MOUSEEVENTF_LEFTDOWN=&H2: 模拟鼠标左键按下

MOUSEEVENTF_LEFTUP :模拟鼠标左键抬起

MOUSEEVENTF_RIGHTDOWN: 模拟鼠标右键按下

MOUSEEVENTF_RIGHTUP :模拟鼠标右键抬起

MOUSEEVENTF_ABSOLUTE=&H8000: 由参数dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元

MOUSEEVENTF_MOVE=&H1 :移动鼠标

调用如:在屏幕上指定位置按下鼠标左键:

Public Const MOUSEEVENTF_LEFTDOWN = &H2

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Timer1_Timer()

SetCursorPos 300, 20

mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&

End Sub

模拟鼠标移动需要设置其dx和dy参数来确定鼠标位置,这时第1个参数用MOUSEEVENTF_MOVE加上MOUSEEVENTF_ABSOLUTE组合,如下:

Public Const MOUSEEVENTF_MOVE = &H1

Public Const MOUSEEVENTF_ABSOLUTE = &H8000

mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, 65535, 65535, 0&, 0& '移动鼠标

mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '按下鼠标

这样可省去用SetCursorPos函数,不过它不以象素为度量单位,而是将长宽分别平分为65535个鼠标位置点,要注意。

补充说明:

参数dx-- Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定水平方向的绝对位置或相对运动

参数dy-- Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定垂直方向的绝对位置或相对运动

==============================================

限制鼠标活动区域函数:ClipCursor函数

限制光标只能在参数lpRect给出的矩形区域内运动。声明:

Public Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long

参数lpRect声明为RECT型,RECT的声明如下:

Public Type RECT

Left As Long

Top As Long Left,Top为左上角坐标。

Right As Long

Bottom As Long Right,Bottom为右下角坐标。

End Type

注:以上坐标使用的是屏幕坐标。

调用如:

Dim lxnRect As RECT

Private Sub Form_Click()

Static a As Boolean

a = Not a

If a = True Then 活动范围为Form1

lxnRect.Left = Form1.Left Screen.TwipsPerPixelX

lxnRect.Top = Form1.Top Screen.TwipsPerPixelY

lxnRect.Right = (Form1.Left + Form1.Width) Screen.TwipsPerPixelX

lxnRect.Bottom = (Form1.Top + Form1.Height) Screen.TwipsPerPixelY

ClipCursor lxnRect

Else 活动范围为全屏幕

lxnRect.Left = 0

lxnRect.Top = 0

lxnRect.Right = Screen.Width Screen.TwipsPerPixelX

lxnRect.Bottom = Screen.Height Screen.TwipsPerPixelY

ClipCursor lxnRect

End If

End Sub

上例是这样的,在窗体上单击时,鼠标活动限在此窗体,再单击,则恢复为全屏幕活动范围。

注:在VB中,所有尺寸都化为缇了(包括screen对象的width,height),而在API中,所有尺寸都为象素,因此,要统一单位,用转换比例screen对象的TwipsPerPixelX和TwipsPerPixelY(好象值就等于15。不知是否固定不变。)

======================================

显示/隐藏鼠标指针:ShowCursor函数

该函数可用于隐藏鼠标,但鼠标仍然可"看不见地移动"。声明:

Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

参数很简单:bShow--当为true且"函数"返回值大于等于0时,显示指针,当为false且"函数"返回值小于0时,隐藏指针。

注:该函数的函数返回值需要注意:它返回"显示计数",windows维持着一个内部显示计数;倘若bShow为TRUE,那么每调用一次这个函数,计数就会递增1;反之,如bShow为FALSE,则计数递减1。只有在这个计数大于或等于0的情况下,指针才会显示出来。而小于0时则隐藏,因此,不单是简单地把bShow设为false就可以了。不然要想再使指针显示出来,可能会遇到困难。如:

Dim a As Boolean

Private Sub Form_Click()

a = False

x = ShowCursor(a)

Print x

End Sub

如果我们多次单击form窗体,则x的值会变为-1,-2,-3,-4……这时,如果再简单地把a改为true,则单击1次时指针不会重显,x的值会变为-3,-2,-1,0……只有多次单击使x等于大于0的时候,指针才会重显。

===========================================

在VB中捕捉mouse_leave事件:SetCapture和ReleaseCapture函数

SetCapture函数:设置鼠标捕获到指定窗口,使该窗口接收所有鼠标输入。

ReleaseCapture函数:释放鼠标捕获。

声明:

Declare Function SetCapture Lib "user32"(ByVal hwnd As Long) As Long

Declare Function ReleaseCapture Lib "user32"() As Long

参数:hwnd--要接收所有鼠标输入的窗口句柄。

调用如(捕捉command2的mouseleave"事件":

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = X & "," & Y

Dim MouseOver As Boolean

MouseOver = (0 <= X) And (X <= Command2.Width) And (0 <= Y) And (Y <= Command2.Height) 这里要注意,一个控件的mouse类事件返回的X,Y坐标值是此控件自身的窗口坐标,不是Form的坐标!所以左上角都是(0,0)-右下角(width,height).

If MouseOver Then 当鼠标在command2上时,

Command2.BackColor = RGB(255, 255, 0)

SetCapture Command2.hwnd 使command2窗口响应鼠标输入。

Else 当鼠标离开时,以下写mouseleave的内容。

Command2.BackColor = RGB(120, 120, 120)

ReleaseCapture command2不再响应鼠标动作

End If

End Sub

鼠标AP

鼠标APi函数的评论条评论