2013-10-07 80 views
0

我想通过点击一个按钮来绘制一个矩形,但是尽可能简单,因为我认为它是我无法理解的。按钮不能绘制矩形vb.net

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

+0

你应该命名你的按钮。 – SLaks

+0

你得到什么错误? –

+1

使用CreateGraphics()几乎是不正确的,无论你画的什么东西都会在表单重绘时自动消失。这里可能的“不起作用”的解释是你的窗户不够大。使用小于710的值。最小化和恢复窗口以查看CreateGraphics()的问题。 –

回答

2

你需要做的所有绘图的Paint事件中。
否则,Windows将在下次刷新窗体时重新绘制表单。

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

+0

通过'e.Graphics'使用Paint()事件中提供的图形。 *我已经看到人们接受上述建议,然后从Paint()事件中继续使用CreateGraphics()... –