2013-10-07 64 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()... –