VB.NETでのマウスクリック・ドラッグイベント

質問

非常に基本的な質問で恐縮です。
VB2005.NETで、マウスが左クリックされた状態でマウスが移動した距離を元にある処理を行いたいと思っています。（マウスをクリックしている間は、自由に線が書けるというものです。）　なるべくシンプルな方法であれば嬉しいです。よろしくお願いいたします。

回答No.1

naganaga_001 · ベストアンサー

お世話になります。

マウスの左ボタンがクリックされた時
　→ MouseDown
マウスの左ボタンから指が離された時
　→ MouseUp
のそれぞれの座標値を捕らえてやれば
距離の計算は出来ると思います。

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
　　If e.Button = Windows.Forms.MouseButtons.Left Then
　　　　Console.WriteLine("MouseDown")
　　　　Console.WriteLine("X:" & e.X)
　　　　Console.WriteLine("Y:" & e.Y)
　　End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
　　If e.Button = Windows.Forms.MouseButtons.Left Then
　　　　Console.WriteLine("MouseUp")
　　　　Console.WriteLine("X:" & e.X)
　　　　Console.WriteLine("Y:" & e.Y)
　　End If
End Sub

お礼

明快なお答えありがとうございました！　お答えのコードで作ってみたらすんなりと動きました。お忙しいところ回答してくださり感謝いたします！