Vb.net 在鼠标后面画一条线
我想加载一张图片(PNG、JPG、位图),然后在图片上画一条线 目前,我使用PictureBox加载我的图片: 下面是我代码中的MouseMove部分: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
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事件,我的图片就会消失,所以我在一个干净的表面上画一条线
在我第一次尝试解决这个问题时,我遇到了另一个问题。如果我划清界限,我的旧界线就不会消失。因此,我的整个表面布满了数千条线
你们中有谁知道如何解决我的问题吗?可能是重复的谢谢,你的链接评论中的链接正是我要找的