Question

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

这是我的代码：

    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

似乎完全删除了图像，因此我之后无法真正地绘制它。我只是想清理我的图片框，以便随时准备好再次绘图。

谢谢！

Answer 1

您可以尝试使用全新的图片替换它：

pb.Image =  New Bitmap(pb.ClientSize.Width, pb.ClientSize.Height)

VB.NET：清除图片框

1 个答案: