TOP > カテゴリ > Visual Basic >

マウスの現在の座標を取得する

マウスの現在の座標を取得するサンプルです。

サンプルの実行画面

ソースコード

[GetCursorPos.frm]

'GetCursorPos =>ハンドルを取得

'<引数>
'lpPoint:  POINTAPI構造体

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
 x As Long  'X座標
 y As Long  'Y座標
End Type

Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()

  Dim Poi As POINTAPI
  
    'Poi.xとPoi.yに座標が入る
      GetCursorPos Poi

      Label1.Caption = "X座標" & Poi.x & " Y座標" & Poi.y

End Sub

ソースコード一式のダウンロード

vbapi_getcursorpos.zip 926 バイト (926 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月04日
記事NO:00367