デスクトップ上のカーソルの位置をゲットする

カーソルの座標を得るには、GetCursorPosというAPIを使います。
次のコードはマウスカーソルの座標を監視するサンプルです。
ラベルを一つ配置してください。

'APIの宣言
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

'これがTrueになったらやめる
Dim a As Boolean

Private Sub Form_Load()
Dim p As POINTAPI

Form1.Show
DoEvents
Do Until a = True
    'カーソルの座標を得る
    GetCursorPos p
    'ラベルに表示
    Label1.Caption = p.x & "," & p.y
    DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
'ループを止める
a = True
End Sub

BACK