鼠標(biāo)APi函數(shù)
愛學(xué)習(xí)的小伙伴們，你們知道什么是鼠標(biāo)APi函數(shù)嗎?不知道的話跟著學(xué)習(xí)啦小編一起來學(xué)習(xí)了解什么是鼠標(biāo)APi函數(shù)。
鼠標(biāo)APi函數(shù)
得到當(dāng)前鼠標(biāo)指針的坐標(biāo)：GetCursorPos函數(shù)
聲明：
public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long 參數(shù)缺省為byref指針傳遞
調(diào)用：先聲明一個自定義類型變量： Dim z As POINTAPI
Private Sub Timer1_Timer()
GetCursorPos z 注：這里z是引用地址傳遞，其值改變，就象"返回值"
Label1.Caption = z.x
Label2.Caption = z.y
End Sub
參數(shù)lpPoint返回鼠標(biāo)在屏幕上坐標(biāo)(不限于程序窗體)，如將鼠標(biāo)指針移到屏幕左上角時，z.x=0,z.y=0,而鼠標(biāo)移到屏幕右下角時，z.x=639;z.y=477
===========================================================
設(shè)置鼠標(biāo)在屏幕上的坐標(biāo) ： SetCursorPos函數(shù)
聲明：
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
調(diào)用如：Private Sub Command1_Click()
Call SetCursorPos(600, 100) 將鼠標(biāo)定位到屏幕(600，100)處。
End Sub
很簡單，注：屏幕是以象素為單位的(與屏幕分辨率設(shè)定有關(guān))。不是緹。
==========================================================
自動按下鼠標(biāo)按紐：mouse_event過程函數(shù)
該過程能在程序中模擬手工按下或抬起鼠標(biāo)，移動鼠標(biāo)的操作，聲明：
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個參數(shù)，指明按下或抬起哪個按紐，如果要模擬鼠標(biāo)移動，則要用到第2，3個參數(shù)dx和dy, 而最后面兩個參數(shù)始終不用。
第1個參數(shù)dwFlags的可能設(shè)置值如下：
MOUSEEVENTF_LEFTDOWN=&H2： 模擬鼠標(biāo)左鍵按下
MOUSEEVENTF_LEFTUP ：模擬鼠標(biāo)左鍵抬起
MOUSEEVENTF_RIGHTDOWN： 模擬鼠標(biāo)右鍵按下
MOUSEEVENTF_RIGHTUP ：模擬鼠標(biāo)右鍵抬起
MOUSEEVENTF_ABSOLUTE=&H8000： 由參數(shù)dx和dy指定鼠標(biāo)坐標(biāo)系統(tǒng)中的一個絕對位置。在鼠標(biāo)坐標(biāo)系統(tǒng)中，屏幕在水平和垂直方向上均勻分割成65535×65535個單元
MOUSEEVENTF_MOVE=&H1 ：移動鼠標(biāo)
調(diào)用如：在屏幕上指定位置按下鼠標(biāo)左鍵：
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
模擬鼠標(biāo)移動需要設(shè)置其dx和dy參數(shù)來確定鼠標(biāo)位置，這時第1個參數(shù)用MOUSEEVENTF_MOVE加上MOUSEEVENTF_ABSOLUTE組合，如下：
Public Const MOUSEEVENTF_MOVE = &H1
Public Const MOUSEEVENTF_ABSOLUTE = &H8000
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, 65535, 65535, 0&, 0& '移動鼠標(biāo)
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '按下鼠標(biāo)
這樣可省去用SetCursorPos函數(shù)，不過它不以象素為度量單位，而是將長寬分別平分為65535個鼠標(biāo)位置點，要注意。
補(bǔ)充說明：
參數(shù)dx-- Long，根據(jù)是否指定了MOUSEEVENTF_ABSOLUTE標(biāo)志，指定水平方向的絕對位置或相對運動
參數(shù)dy-- Long，根據(jù)是否指定了MOUSEEVENTF_ABSOLUTE標(biāo)志，指定垂直方向的絕對位置或相對運動
==============================================
限制鼠標(biāo)活動區(qū)域函數(shù)：ClipCursor函數(shù)
限制光標(biāo)只能在參數(shù)lpRect給出的矩形區(qū)域內(nèi)運動。聲明：
Public Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long
參數(shù)lpRect聲明為RECT型，RECT的聲明如下：
Public Type RECT
Left As Long
Top As Long Left,Top為左上角坐標(biāo)。
Right As Long
Bottom As Long Right,Bottom為右下角坐標(biāo)。
End Type
注：以上坐標(biāo)使用的是屏幕坐標(biāo)。
調(diào)用如：
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
上例是這樣的，在窗體上單擊時，鼠標(biāo)活動限在此窗體，再單擊，則恢復(fù)為全屏幕活動范圍。
注：在VB中，所有尺寸都化為緹了(包括screen對象的width,height)，而在API中，所有尺寸都為象素，因此，要統(tǒng)一單位，用轉(zhuǎn)換比例screen對象的TwipsPerPixelX和TwipsPerPixelY(好象值就等于15。不知是否固定不變。)
======================================
顯示/隱藏鼠標(biāo)指針：ShowCursor函數(shù)
該函數(shù)可用于隱藏鼠標(biāo)，但鼠標(biāo)仍然可"看不見地移動"。聲明：
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
參數(shù)很簡單：bShow--當(dāng)為true且"函數(shù)"返回值大于等于0時，顯示指針，當(dāng)為false且"函數(shù)"返回值小于0時，隱藏指針。
注：該函數(shù)的函數(shù)返回值需要注意：它返回"顯示計數(shù)"，windows維持著一個內(nèi)部顯示計數(shù);倘若bShow為TRUE，那么每調(diào)用一次這個函數(shù)，計數(shù)就會遞增1;反之，如bShow為FALSE，則計數(shù)遞減1。只有在這個計數(shù)大于或等于0的情況下，指針才會顯示出來。而小于0時則隱藏，因此，不單是簡單地把bShow設(shè)為false就可以了。不然要想再使指針顯示出來，可能會遇到困難。如：
Dim a As Boolean
Private Sub Form_Click()
a = False
x = ShowCursor(a)
Print x
End Sub
如果我們多次單擊form窗體，則x的值會變?yōu)?1，-2，-3，-4……這時，如果再簡單地把a(bǔ)改為true,則單擊1次時指針不會重顯，x的值會變?yōu)?3，-2，-1，0……只有多次單擊使x等于大于0的時候，指針才會重顯。
===========================================
在VB中捕捉mouse_leave事件：SetCapture和ReleaseCapture函數(shù)
SetCapture函數(shù)：設(shè)置鼠標(biāo)捕獲到指定窗口，使該窗口接收所有鼠標(biāo)輸入。
ReleaseCapture函數(shù)：釋放鼠標(biāo)捕獲。
聲明：
Declare Function SetCapture Lib "user32"(ByVal hwnd As Long) As Long
Declare Function ReleaseCapture Lib "user32"() As Long
參數(shù)：hwnd--要接收所有鼠標(biāo)輸入的窗口句柄。
調(diào)用如(捕捉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坐標(biāo)值是此控件自身的窗口坐標(biāo)，不是Form的坐標(biāo)!所以左上角都是(0，0)-右下角(width,height).
If MouseOver Then 當(dāng)鼠標(biāo)在command2上時，
Command2.BackColor = RGB(255, 255, 0)
SetCapture Command2.hwnd 使command2窗口響應(yīng)鼠標(biāo)輸入。
Else 當(dāng)鼠標(biāo)離開時，以下寫mouseleave的內(nèi)容。
Command2.BackColor = RGB(120, 120, 120)
ReleaseCapture command2不再響應(yīng)鼠標(biāo)動作
End If
End Sub
鼠標(biāo)APi函數(shù)相關(guān)文章：