按钮不能绘制矩形vb.net

Question

我试图通过点击一个按钮来绘制一个矩形，但是就像我想的那样简单，我无法做到这一点。

Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
    ' Create pen. 
    Dim blackPen As New Pen(Color.Black, 1)

    ' Create rectangle. 
    Dim rect As New Rectangle(10, 710, 35, 100)

    ' Draw rectangle to screen.
    Me.CreateGraphics.DrawRectangle(blackPen, rect)
End Sub

我使用的是VB.NET

Answer 1

您需要在Paint事件中完成所有绘图 否则，Windows将在下次重新绘制表单时删除所有内容。

为Paint事件添加处理程序，并使用e.Graphics绘制所有内容 您需要随时跟踪需要绘制的内容。