Vb.net 在鼠标后面画一条线

Vb.net 在鼠标后面画一条线,vb.net,graphics,line,Vb.net,Graphics,Line,我想加载一张图片(PNG、JPG、位图),然后在图片上画一条线 目前,我使用PictureBox加载我的图片: 下面是我代码中的MouseMove部分: If mClickOne = True Then If Not mSetDrawPictureAlready Then g = Graphics.FromImage(picFormular.Image) mRawPicture = picFormular.Image mSetDra

我想加载一张图片(PNG、JPG、位图),然后在图片上画一条线

目前,我使用PictureBox加载我的图片:

下面是我代码中的MouseMove部分:

If mClickOne = True Then
    If Not mSetDrawPictureAlready Then
        g = Graphics.FromImage(picFormular.Image)
        mRawPicture = picFormular.Image
            mSetDrawPictureAlready = True
    End If
    If mChoosenDrawFunction = DrawFunction.Ausrichten Then
        g.Clear(Color.Transparent)
        g.DrawImage(mRawPicture, picFormular.Location)
        g.DrawLine(Pens.Red, New Point(mClickOnePosX, mClickOnePosY), New Point(e.X, e.Y))
        picFormular.Refresh()
    ElseIf mChoosenDrawFunction = DrawFunction.FeldMakieren Then
        'Missing Code
    Else
        'Nothing
    End If
End If
在这一点上,我可以通过点击点一和点二来画一条线,但是如果调用MouseMove事件,我的图片就会消失,所以我在一个干净的表面上画一条线

在我第一次尝试解决这个问题时,我遇到了另一个问题。如果我划清界限,我的旧界线就不会消失。因此,我的整个表面布满了数千条线


你们中有谁知道如何解决我的问题吗?

可能是重复的谢谢,你的链接评论中的链接正是我要找的