| ■ GetCursorPos |
| 現在のマウスポインタの位置を取得します |
| 業務で使用することはないと思いますが、文字列の貼り付けツールなどを作成するときに、貼り付け対象のウィンドウを取得するときに、使ったのでライブラリとして残しておきます |
'------------------------------------------------------------------------------
' カーソル現在位置取得（宣言）
'------------------------------------------------------------------------------
Type PointType
X As Long ' Ｘ座標
Y As Long ' Ｙ座標
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As PointType) As Long
Dim w_point As PointType ' ポイント構造体
Dim w_ret As Long ' 戻り値
' 現在のマウスポインタの位置を取得する
w_ret = GetCursorPos(w_point)
|