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

質問

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

役に立った：0件

質問者：lookingsun
投稿日時：2006/08/12 13:06
困り度：

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

この質問への回答は締め切られました。

お世話になります。

マウスの左ボタンがクリックされた時
　→ 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