C# と VB.NET の質問掲示板

■No65079 (もとみ さん) に返信
自分もやったことなかったので、やってみました。
マウスの動く速度って速いんだなぁ。秒速にしたらでかすぎて、嘘だろ？と思った。

※おそらく、うまくいかないのはMousePositionを使っているから。
　使うなら、今回だとPictureBoxの左上座標を引いてやんないと、PC上の絶対座標になってしまったよーな。
　
・Timerの代わりにStopWatch使いました。こんな時のためにあるようなものだし。
・デザイナ上で、Form1にPictureBox1とlabel1を貼り付け、PictureBox1のMouseMoveイベントのみ処理しています。
・マウスイベントの引数にある、マウス座標を使っています。

    public partial class Form1 : Form
    {
        //前回のマウス座標
        Point PastPoint
        {
            set;
            get;
        }
        //時間計測用
        System.Diagnostics.Stopwatch MyStopWatch
        {
            set;
            get;
        }
        public Form1()
        {
            InitializeComponent();
            PastPoint = new Point();
            MyStopWatch = new System.Diagnostics.Stopwatch();
        }
        
        private void PictureBox1_MouseMove(object sender, MouseEventArgs e)
        {           
            //計測が速すぎてマウス座標変化が無いので、次回まで待つ
            if ((PastPoint.X != e.X) || (PastPoint.Y != e.Y))
            {
                if (MyStopWatch.IsRunning == true)
                {
                    MyStopWatch.Stop();
                }

                float fDistX = Math.Abs((float)(e.X - PastPoint.X)); //X成分の距離
                float fDistY = Math.Abs((float)(e.Y - PastPoint.Y)); //Y成分の距離
                //3平方の定理より、実際の距離
                float fDistXY = (float)Math.Sqrt((double)((fDistX * fDistX) + (fDistY * fDistY)));
                
                //速度を出すために、時間で割る（ゼロディバイドのみ回避）
                float fMouseSpeed = (fDistXY == 0.0f) ? 0.0f : (fDistXY / (float)(MyStopWatch.ElapsedMilliseconds));
                //↑ミリ秒単位での速度

                if (Double.IsInfinity(fMouseSpeed) == true)
                {
                    fMouseSpeed = 0.0f;
                }

                label1.Text = fMouseSpeed.ToString();

                PastPoint = new Point(e.X, e.Y);
                
                MyStopWatch.Restart();
            }
        }
    }

■No65079 (もとみ さん) に返信

前コメ、インデント付け忘れ、編集キー忘れなので再度載せます。
 
Public Class Form1
    Private gp As Graphics
    Private pt1 As Point
    Private stopflg As Boolean = True
    Private drawflg As Boolean = False
    Private starttime As Date

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        gp = PictureBox1.CreateGraphics()
    End Sub

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If stopflg Then
            pt1 = e.Location
            stopflg = False
            starttime = Date.Now()
        Else
            Dim nowtime = Date.Now()
            If nowtime.Subtract(starttime).TotalMilliseconds < 10 Then Exit Sub
            Dim pt2 = e.Location
            Dim dest = Math.Sqrt((pt2.X - pt1.X) ^ 2 + (pt2.Y - pt1.Y) ^ 2)
            If drawflg Then
                gp.DrawLine(Pens.Black, pt1, pt2)
            End If
            pt1 = pt2
            If dest > 5 Then
                Timer1.Stop()
            Else
                Timer1.Interval = 2000
                Timer1.Start()
            End If
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        drawflg = Not drawflg
        If drawflg Then
            PictureBox1.Cursor = Cursors.Cross
        Else
            PictureBox1.Cursor = Cursors.Default
        End If
    End Sub
End Class