Coloring Shapes

In previous lessons, you learned how to draw shapes such as rectangles, ellipses, polygons, and pies using outlines. In this lesson, you will learn how to fill these shapes with color.

The main methods are:

• FillRectangle
• FillEllipse
• FillPolygon
• FillPie

To fill shapes, you must first create a Brush object:

Dim myBrush As Brush
myBrush = New SolidBrush(Color.Coral)

myGraphics.FillRectangle(myBrush, 65, 50, 150, 150)

Example 31.1

Private Sub BtnDraw_Click(...) Handles BtnDraw.Click

Dim myPen As Pen = New Pen(Color.Blue, 5)
Dim myBrush As Brush = New SolidBrush(Color.Coral)
Dim g As Graphics = Me.CreateGraphics()

g.DrawRectangle(myPen, 65, 50, 150, 150)
g.FillRectangle(myBrush, 65, 50, 150, 150)

End Sub

g.FillEllipse(myBrush, 50, 50, 180, 100)

Example 31.2

Dim myPen As New Pen(Color.Blue, 5)
Dim myBrush As New SolidBrush(Color.Coral)
Dim g As Graphics = Me.CreateGraphics()

g.DrawEllipse(myPen, 50, 50, 180, 100)
g.FillEllipse(myBrush, 50, 50, 180, 100)

g.FillPolygon(myBrush, myPoints)

Example 31.3

Dim A As New Point(70, 10)
Dim B As New Point(170, 50)
Dim C As New Point(200, 150)
Dim D As New Point(140, 200)

Dim pts As Point() = {A, B, C, D}

Dim myPen As New Pen(Color.Blue, 5)
Dim myBrush As New SolidBrush(Color.Coral)
Dim g As Graphics = Me.CreateGraphics()

g.DrawPolygon(myPen, pts)
g.FillPolygon(myBrush, pts)

g.FillPie(myBrush, 30, 40, 150, 150, 0, 60)

Example 31.4

Dim myPen As New Pen(Color.Blue, 5)
Dim myBrush As New SolidBrush(Color.Coral)
Dim g As Graphics = Me.CreateGraphics()

g.DrawPie(myPen, 30, 40, 150, 150, 0, 60)
g.FillPie(myBrush, 30, 40, 150, 150, 0, 60)