FillRectangle
FillRectangle用于填充四边形，其语法为：
FillRectangle(color, rect)
FillRectangle(brush, rect)
FillRectangle(color, rect, corners)
FillRectangle(brush, rect, corners)
FillRectangle(color,
x, y, width, height)
FillRectangle(brush,
x, y, width, height)
| 参数 | 说明 |
| color | 填充颜色 |
| brush | 指定用于填充的画刷，Brush类型。
过Brushes可以返回各种颜色的默认画刷，例如： Dim br As Brush = Brushes.Red '获得红色的画刷可以用自定义的颜色来定义画刷，例如：
Dim
br1
As
Brush
=
New
SolidBrush(Color.FromARGB(255,255,192,203)) |
| rect | RectangleF类型，用于指定四边形的位置和大小 |
| corners | SizeF类型，用于指定矩形的角半径。 |
| x, y, width, height | 分别用于直接指定四边形的水平位置、垂直位置、宽度和高度 |
示例
Dim
file
As
String
=
"c:\temp\test.pdf"
Dim
pdc
As
New
PDFCreator()
Dim
rect
As
New
RectangleF(100, 100, 250, 150)
pdc.FillRectangle(color.PowderBlue, rect,
New
SizeF(10, 10))
pdc.Save(file)
pdc.Show()
生成的文档为：