画一条跟随鼠标的线

时间:2011-09-07 13:21:19

标签: vb.net graphics line

我想加载图片(PNG,JPG,Bitmap)然后,我想在我的图片上画一条线。

目前我使用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

在此我可以点击PointOne并点击PointTwo绘制一条线,但如果调用了MouseMove事件,我的图片就会消失,所以我在干净的表面上画线。

在我第一次尝试解决问题时,我遇到了另一个问题。如果我画线,我的旧线并没有消失。所以,我的整个表面充满了成千上万行。

你们中的任何人都知道如何解决我的问题吗?

0 个答案:

没有答案