마우스 포인터 위치 관련 모듈

 

마우스 포인터 위치관련 모듈입니다.

01 : Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
02 : Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
03 : 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)
04 :
05 : Private Type POINTAPI
06 :           X As Long
07 :           Y As Long
08 : End Type
09 :
10 : Public Sub GetMouseXY(ByRef MouseX As Long, ByRef MouseY As Long)
11 : On Error Resume Next
12 :      Dim MousePoint As POINTAPI
13 :      GetCursorPos MousePoint
14 :
15 :      MouseX = MousePoint.X
16 :      MouseX = MousePoint.Y
17 : End Sub
18 :
19 : Public Sub MouseMove(ByVal MouseX As Long, ByVal MouseY As Long)
20 : On Error Resume Next
21 :      mouse_event 2, 0, 0, 0, 0: DoEvents
22 :      SetCursorPos CLng(MouseX), CLng(MouseY)
23 :      mouse_event 4, 0, 0, 0, 0: DoEvents
24 : End Sub

 

사용방법

GetMouseXY(X반환, Y반환) : 마우스의 위치를 반환합니다
MouseMove(X위치, Y위치) : 마우스의 위치를 변경합니다

모듈을 하나 만들어서, 만든 모듈에 써주시면 됩니다