鼠標(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)用:先聲明一個(gè)自定義類型變量: 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)指針移到屏幕左上角時(shí),z.x=0,z.y=0,而鼠標(biāo)移到屏幕右下角時(shí),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個(gè)參數(shù),指明按下或抬起哪個(gè)按紐,如果要模擬鼠標(biāo)移動,則要用到第2,3個(gè)參數(shù)dx和dy, 而最后面兩個(gè)參數(shù)始終不用。
第1個(gè)參數(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)中的一個(gè)絕對位置。在鼠標(biāo)坐標(biāo)系統(tǒng)中,屏幕在水平和垂直方向上均勻分割成65535×65535個(gè)單元
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)位置,這時(shí)第1個(gè)參數(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個(gè)鼠標(biāo)位置點(diǎn),要注意。
補(bǔ)充說明:
參數(shù)dx-- Long,根據(jù)是否指定了MOUSEEVENTF_ABSOLUTE標(biāo)志,指定水平方向的絕對位置或相對運(yùn)動
參數(shù)dy-- Long,根據(jù)是否指定了MOUSEEVENTF_ABSOLUTE標(biāo)志,指定垂直方向的絕對位置或相對運(yùn)動
==============================================
限制鼠標(biāo)活動區(qū)域函數(shù):ClipCursor函數(shù)
限制光標(biāo)只能在參數(shù)lpRect給出的矩形區(qū)域內(nèi)運(yùn)動。聲明:
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
上例是這樣的,在窗體上單擊時(shí),鼠標(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時(shí),顯示指針,當(dāng)為false且"函數(shù)"返回值小于0時(shí),隱藏指針。
注:該函數(shù)的函數(shù)返回值需要注意:它返回"顯示計(jì)數(shù)",windows維持著一個(gè)內(nèi)部顯示計(jì)數(shù);倘若bShow為TRUE,那么每調(diào)用一次這個(gè)函數(shù),計(jì)數(shù)就會遞增1;反之,如bShow為FALSE,則計(jì)數(shù)遞減1。只有在這個(gè)計(jì)數(shù)大于或等于0的情況下,指針才會顯示出來。而小于0時(shí)則隱藏,因此,不單是簡單地把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……這時(shí),如果再簡單地把a(bǔ)改為true,則單擊1次時(shí)指針不會重顯,x的值會變?yōu)?3,-2,-1,0……只有多次單擊使x等于大于0的時(shí)候,指針才會重顯。
===========================================
在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) 這里要注意,一個(gè)控件的mouse類事件返回的X,Y坐標(biāo)值是此控件自身的窗口坐標(biāo),不是Form的坐標(biāo)!所以左上角都是(0,0)-右下角(width,height).
If MouseOver Then 當(dāng)鼠標(biāo)在command2上時(shí),
Command2.BackColor = RGB(255, 255, 0)
SetCapture Command2.hwnd 使command2窗口響應(yīng)鼠標(biāo)輸入。
Else 當(dāng)鼠標(biāo)離開時(shí),以下寫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)文章: