在表單上繪製圖案

發行項
08/21/2008

更新：2007 年 11 月

在本課程中，您將學習如何在表單上繪製矩形或圓形等形狀。

在上一個課程中，您學會如何使用 DrawLine 圖形方法和 Pen 物件，在表單上繪製線條。除了 DrawLine 方法以外，Visual Basic 也有可繪製形狀的圖形方法，以及稱為「筆刷」(Brush) 的圖形物件，可供填滿形狀。

繪製簡單形狀

繪製形狀跟繪製線條很類似，您都必須定義座標以及要用來繪製的顏色。不同之處在於，線條用的是定義起點和結束點的座標，而方形或矩形之類形狀用的是描述其左上角、寬度和高度的座標。

由於圓形和橢圓形 (Oval) (也稱為「橢圓形」(Ellipse)) 並沒有左上角，因此座標改為描述其週框 (Bounding Rectangle) (與圓形和橢圓形同寬同高的想像矩形) 的左上角。

試試看！

若要繪製形狀

在 [檔案] 功能表上，選擇 [新專案]。
在 [新增專案] 對話方塊的 [範本] 窗格中，選取 [Windows 應用程式]。
在 [名稱] 方塊中，輸入 Shapes，再按 [確定]。

會開啟新的 Windows Form 專案。
按兩下表單，開啟 [程式碼編輯器]，然後從 [事件] 下拉式清單中選取 [Paint]。

在 [Form1_Paint] 事件處理常式中，加入下列程式碼。

' Draw a 200 by 150 pixel green rectangle.
e.Graphics.DrawRectangle(Pens.Green, 10, 10, 200, 150)
' Draw a blue square
e.Graphics.DrawRectangle(Pens.Blue, 30, 30, 150, 150)
' Draw a 150 pixel diameter red circle.
e.Graphics.DrawEllipse(Pens.Red, 0, 0, 150, 150)
' Draw a 250 by 125 pixel yellow oval.
e.Graphics.DrawEllipse(Pens.Yellow, 20, 20, 250, 125)

請按 F5 執行程式。您應該會看到表單上有四個形狀。

保持專案開啟，因為您將在下一個程序中，加入其他項目。

繪製已填滿的形狀

到目前為止，您所繪製的形狀只是外框而已。若要用純色繪製形狀，就必須使用其中一個「填滿」方法，如 FillRectangle 或 FillEllipse。填滿方法會使用 Brush 物件，這是另外一種可以繪製的圖形物件類型。

用不同顏色填滿形狀時，必須定義比形狀稍小的座標，否則就會蓋住框線。例如，若要填滿座標為 0, 0, 150, 150 的方形，就要指定座標為 1, 1, 148, 148 的填滿，將寬度為一個像素的線條算進去。

若要繪製已填滿的形狀

在 [Form1_Paint] 事件處理常式中，在您先前輸入的程式碼下面加入下列程式碼。

' Fill the circle with the same color as its border.
e.Graphics.FillEllipse(Brushes.Red, 0, 0, 150, 150)
' Fill the square with a different color.
e.Graphics.FillRectangle(Brushes.Aquamarine, 31, 31, 148, 148)