５．現在のマウスの位置座標を取得する



＜　使用用途　＞
マウスの位置座標を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のGetCursorPos を使用します。
サンプルではコマンドボタンを押したときに位置座標を取得する処理です。

GetCursorPos ＝＞ハンドルを取得
　　　　<引数>
　　　　　lpPoint：POINTAPI構造体
　　　＠戻り値＠　　
　　　　 ハンドルが戻る

<　ＳＡＭＰＬＥ　＞
’標準モジュール
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
x As Long
y As Long
End Type

’フォーム内の処理
Private Sub Command1_Click()
　　Dim Poi As POINTAPI
　　
　　’Poi.xとPoi.yに座標が入る
　　　GetCursorPos Poi

　　　Text1.Text=Poi.x
　　　Text2.Text=Poi.y
End Sub