色彩を教える人になるための講座「色彩講師養成講座」の魅力とは>>

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

gooドクター

A 回答 (1件)

お世話になります。



マウスの左ボタンがクリックされた時
 → 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
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/08/15 17:39

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

人気Q&Aランキング