VB マウスの位置を取得する

マウスの位置を取得する

１．マウスの位置をスクリーン座標で取得する

スクリーン座標とは画面の左上が(0, 0)となる座標系。

Dim X As Integer
Dim Y As Integer
Dim Pos As Point = Windows.Forms.Cursor.Position
X = Pos.X
Y = Pos.Y

Label1.Text = X & ", " & Y

　

２．マウスの座標をフォーム座標で取得する

フォーム座標とはフォームの左上が(0, 0)となる座標系。

Dim X As Integer
Dim Y As Integer
Dim Pos As Point = Me.PointToClient(Windows.Forms.Cursor.Position)
X = Pos.X
Y = Pos.Y

Label1.Text = X & ", " & Y

メモ：この例はフォーム内に記述する場合の例です。フォームではない場所にこのコードを記述するときはMeの部分を目的のフォームを表す変数に変更してください。

３．マウスの座標をクライアント座標で取得する

クライアント座標とは個々のコントロールから見たマウスの座標で、コントロールの左上が(0, 0)となる座標系。

フォーム座標はフォームから見たクライアント座標ということになる。

以下の例ではTextBox1のクライアント座標でマウスの位置を表示する。

Dim X As Integer
Dim Y As Integer
Dim Pos As Point = TextBox1.PointToClient(Windows.Forms.Cursor.Position)
X = Pos.X
Y = Pos.Y

Label1.Text = X & ", " & Y