GetCursorPos

APIの動き

マウスカーソルの現在の位置を、スクリーン座標で取得します。

次のAPI定義をフォームにコピー＆ペーストして下さい

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type

使い方とパラメータの説明

■使い方 Dim MXY As POINTAPI GetCursorPos MXY ■戻り値 関数が成功すると0以外が エラーで0が戻ります

使用例(タイマー、ラベルを追加)

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim MXY As POINTAPI Private Sub Form_Load() Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() GetCursorPos MXY '座標を修得 Label1.Caption = "X=" & MXY.x & " Y=" & MXY.y End Sub

コメント

もっと、高密度に取得したいって時は Do Loopを使いましょう。