| GetCursorPos | |
| マウスカーソルの位置を取得 |
| ☆宣言 |
'▼データ型の宣言
Type POINTAPI
x As Long
y As Long
End Type
'▼APIの宣言
Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI _
) As Long
|
| ☆使用例と使用例のパラメータ |
Dim CurPos As POINTAPI Dim Ret As Integer Ret = GetCursorPos(CurPos) |
Ret…関数が成功したかどうかが返ります。 0以外…関数成功 0 …関数失敗 CurPos…マウスポインタの位置情報が入ります。 CurPos.x …マウスポインタのX座標 CurPos.y …マウスポインタのY座標 |
| ☆サンプルプログラム |
| getcurps.lzh (4.61KB) |
| Directory Reference | ||||
|---|---|---|---|---|
|