vb.net中如何快速绘制鼠标移动轨迹

 vb.net中如何在picturebox上绘制直线，且绘制鼠标移动轨迹

    主要代码及注释如下：

 

Public   Class Form1 Class Form1

    Dim PtStart As Point                '记录绘制直线的起始点
    Dim PtEnd As Point                  '记录绘制直线的终点
    Dim ShouldDrawLine As Boolean       '是否绘制直线

    '记录鼠标左键点击的位置，第二次点击后开始绘制直线
    Private Sub Pic1_MouseDown()Sub Pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If Not ShouldDrawLine Then
                PtStart = New Point(e.X, e.Y)
                ShouldDrawLine = True
            Else
                PtEnd = New Point(e.X, e.Y)

                '下面两句根据需要进行取舍
                'Call DrawLine(PtStart, PtEnd)   '绘制一条直线
                Call DrawLines(PtStart, PtEnd)  '绘制多条直线

                ShouldDrawLine = False
            End If
        End If
    End Sub

    '绘制鼠标的移动轨迹（仅在鼠标第一次点击后开始绘制轨迹）
    Private Sub Pic1_MouseMove()Sub Pic1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseMove
        Static pt As Point
        If ShouldDrawLine Then
            '鼠标第一次点击的位置（需转化为屏幕坐标）
            Dim p As Point = Pic1.PointToScreen(PtStart)