1

到目前为止,我所看到的清​​除图片框的代码都没有达到我所需要的。我想清除一个图片框,以便我可以在“空白”背景上绘制新的东西。

这是我的代码:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    PictureBoxClear(Me.PictureBox1)

    m_i = m_i + 1
    Dim nPT As New Point(0, 0)
    Me.ImageList1.Draw(Me.PictureBox1.CreateGraphics, nPT, m_i)

End Sub
Public Sub PictureBoxClear(ByRef pb As PictureBox)

    pb.Image = Nothing

End Sub

 .Image = Nothing

似乎完全删除了图像,这样我之后就不能真正在它上面画一些东西了。我只是想清除我的图片框,以便它可以再次获得一些绘图。

谢谢!

4

1 回答 1

1

您可以尝试将其替换为全新的图像:

pb.Image =  New Bitmap(pb.ClientSize.Width, pb.ClientSize.Height)
于 2012-10-22T07:24:57.273 回答