5.現在のマウスの位置座標を取得する



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

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


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

GetCursorPos =>ハンドルを取得
    <引数>
     lpPoint:POINTAPI構造体
   @戻り値@  
     ハンドルが戻る


< SAMPLE >
’標準モジュール
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





API 技術関連のページへ戻る

ホーム PV ランキング