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 に答える