Filling Shapes
So far, we've dealt with the outline of a shape. Now we will focus on the interior, or fill area, of a shape. GDI+ gives us the concept of a brush to indicate how a shape is filled. Brushes are useful when blending colors for a desired effect like a fade or indicating a shape's texture like sand, stone, or brick. Brushes can be a single solid color, a blend of colors, a texture, a bitmap, or a hatched pattern.
To create brush objects in our code, we use a derivative of the Brush class. Brush is an abstract base class. Classes that derive from Brush are as follows: SolidBrush, TextureBrush, RectangleGradientBrush, LinearGradientBrush, and HatchBrush. This section discusses the various Brush derivatives.
SolidBrush
The SolidBrush class could not be more basic. It works just as it sounds; it provides a single-colored brush with which to fill shapes. It has one constructor and one property, Color. Of course, this property is of the type Color structure. The following is an example of how to create a SolidBrush object:
Dim myBrush as New SolidBrush(color:=Color.Red)
TextureBrush
To create custom fill effects, you use the TextureBrush class. Custom fills are useful when you want to apply your own design to the interior of a shape. For example, suppose you've created a bar graph and you want to fill each bar with the logo of a different company. The TextureBrush class would allow you to use a bitmap of each company's logo to fill each rectangle or bar in the graph. Using the TextureBrush class and bitmap images, you can create endless fill patterns.
The following code creates a TextureBrush instance based on a simple bitmap made up of three 45° lines. The bitmap is defined inside of an ImageList control (imageList1). When we create the object instance, we set the WrapMode parameter to the TileFlipXY enumeration member. This reverses the image both vertically and horizontally before it is applied to the graphic surface.
'dimension a local variable of type TextureBrush Class Dim myBrush As TextureBrush 'create a new instance of TextureBrush myBrush = New TextureBrush(imageList1().Images.Item(0), _ Drawing.Drawing2D.WrapMode.TileFlipXY)
Table 9.6 demonstrates how you can use the WrapMode property to tile an image inside the TextureBrush object to create a desired effect.
Table 9.6 TextureBrush WrapMode Enumeration
Effect |
Description |
This is the original 16 x 16 bitmap that is used to create the various effects. |
|
A 32 x 32 filled area using the WrapMode.Tile property. The 16 x 16 bitmap is repeated four times in a tiled fashion. |
|
A 32 x 32 filled area using the WrapMode.TileFlipX property. The 16 x 16 bitmap is reversed horizontally and then repeated four times (tiled). |
|
A 32 x 32 filled area using the WrapMode.TileFlipY property. The 16 x 16 bitmap is reversed vertically and then repeated four times (tiled). |
|
A 32 x 32 filled area using the WrapMode.TileFlipXY property. The 16 x 16 bitmap is reversed vertically and horizontally before being tiled. |
LinearGradientBrush
In Windows 9x and above, you've undoubtedly seen how you can blend two colors across the title bar of a window from within the "Display Settings" control panel. Well, the LinearGradientBrush class allows us to do just that; we can blend two colors across a given shape.
To do so, we first create an instance of the class based on two colors and a blend style. Blend styles are defined by the LinearGradientMode enumeration. We then use a fill method of the Graphics object to paint our shape with the blended style. Listing 9.4 illustrates this by creating a Rectangle object and then using the blended LinearGradientBrush to fill its interior by calling FillRectangle.
Listing 9.4 LinearGradientBrush
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'local scope Dim myGraphics As Graphics Dim myBrush As System.Drawing.Drawing2D.LinearGradientBrush Dim myRectangle As Rectangle 'return the current form as a drawing surface myGraphics = Graphics.FromHwnd(hwnd:=ActiveForm().Handle) 'create a rectangle object myRectangle = New Rectangle(x:=5, y:=5, Width:=40, Height:=50) 'draw the rectangle to the surface myGraphics.DrawRectangle(pen:=New Pen(Color.Black), rect:=myRectangle) 'create the gradient brush myBrush = New System.Drawing.Drawing2D.LinearGradientBrush( _ rect:=myRectangle, _ color1:=Color.White, _ color2:=Color.DarkSlateBlue, _ LinearGradientMode:= _ System.Drawing.Drawing2D.LinearGradientMode.Vertical) 'fill the rectangle using the gradient brush myGraphics.FillRectangle(brush:=myBrush, rect:=myRectangle) End Sub
Notice that when we created the brush, we set the LinearGradientMode parameter to indicate a blend from the top of the shape to its bottom (Vertical). You can get the four effects defined in Table 9.7 by using this enumeration.
Table 9.7 LinearGradientMode Enumeration
Member |
Effect |
Description |
Vertical |
The Vertical member indicates a fill pattern from the top of the object to the bottom. |
|
Horizontal |
The Horizontal member indicates a fill pattern from the left of an object to its right. |
|
ForwardDiagonal |
The ForwardDiagonal member indicates a fill pattern from the upper-left corner of an object to the lower-right corner. |
|
BackwardDiagonal |
The BackwardDiagonal member indicates a fill pattern from the upper-right corner of an object to the lower-left corner. |
HatchBrush
Remember the first paint programs? Remember showing your friends a wall built out of red brick that you drew with a rectangle and filled with the brick pattern? Well, the HatchBrush class allows us to create numerous predefined fill patterns, including brick.
We create a HatchBrush by passing in a hatch style, using the HatchStyle enumeration, and a foreground and background color to be used by the hatch style. Listing 9.5 fills an ellipse using a checkerboard HatchBrush instance.
Listing 9.5 HatchBrush
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'local scope Dim myGraphics As Graphics Dim myBrush As System.Drawing.Drawing2D.HatchBrush Dim myRectangle As Rectangle 'return the current form as a drawing surface myGraphics = Graphics.FromHwnd(hwnd:=ActiveForm().Handle) 'create a rectangle object to bind the ellipse myRectangle = New Rectangle(x:=5, y:=5, Width:=70, Height:=60) 'draw the ellipse to the surface myGraphics.DrawEllipse(pen:=New Pen(Color.Black), rect:=myRectangle) 'create the hatch brush myBrush = New System.Drawing.Drawing2D.HatchBrush( _ hatchstyle:=Drawing.Drawing2D.HatchStyle.LargeCheckerBoard, _ ForeColor:=Color.Black, _ BackColor:=Color.White) 'fill the ellipse using the hatch brush myGraphics.FillEllipse(brush:=myBrush, rect:=myRectangle) End Sub
Table 9.8 provides a visual representation of the various patterns possible using the HatchBrush class. Hopefully, this will serve as a handy reference when you need to pick the perfect pattern. A description of each member is not necessary; the associated graphic tells the whole story. Remember, the table uses black and white, but you can use any color for the foreColor and backColor parameters for nearly unlimited effects.
Table 9.8 HatchStyle Enumeration
Member |
Effect |
Member |
Effect |
Horizontal |
Vertical |
||
LightHorizontal |
LightVertical |
||
DarkHorizontal |
DarkVertical |
||
DashedHorizontal |
DashedVertical |
||
NarrowHorizontal |
NarrowVertical |
||
DiagonalBrick |
Cross |
||
HorizontalBrick |
DiagonalCross |
||
SmallGrid |
SolidDiamond |
||
LargeGrid |
DottedDiamond |
||
DottedGrid |
OutlinedDiamond |
||
SmallCheckerBoard |
SmallConfetti |
||
LargeCheckerBoard |
LargeConfetti |
||
Percent05 |
Percent10 |
||
Percent20 |
Percent25 |
||
Percent30 |
Percent40 |
||
Percent50 |
Percent60 |
||
Percent70 |
Percent75 |
||
Percent80 |
Percent90 |
||
Plaid |
Sphere |
||
Trellis |
Shingle |
||
Wave |
Weave |
||
BackwardDiagonal |
ForwardDiagonal |
||
DarkDownwardDiagonal |
LightDownwardDiagonal |
||
DarkUpwardDiagonal |
LightUpwardDiagonal |
||
DashedDownwardDiagonal |
DashedUpwardDiagonal |
||
WideDownwardDiagonal |
WideUpwardDiagonal |
||
Divot |
|
|