DrawRectangle

DrawRectangle用于绘制一个四边形，其的语法为：

DrawRectangle(pen, rect)
DrawRectangle(pen, rect, corners)
DrawRectangle(pen, x, y, width, height)

参数 说明
pen 指定用于绘制四边形边框的画笔。

通过Pens集合可以获得各种颜色的画笔，例如：

Dim pn As Pen = Pens.Red '获得红色的默认画笔

默认画笔的宽度为1，如果要获得一个指定宽度的画笔，可以采用下面的语法：

Dim 变量名 As New Pen(颜色, 宽度)

例如：

Dim pn As New Pen(Color.Green, 5) '获得一个绿色的宽度为5的画笔

Pen有一个DashStyle属性，用于定义通过此画笔绘制出的线条类型，该属性是一个DashStyle型枚举，包括以下可选值：

Dash         由线段构成的直线。
DashDot      由线段和点间隔构成的直线。
DashDotDot   由线段和连续两个点间隔构成的直线
Dot          由点构成的直线。
Solid        实线，这是默认值
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(72, 72, 100, 50)
pdc.DrawRectangle(pens.Red, rect)
rect.Offset(130, 0)
pdc.DrawRectangle(pens.Red, rect, New SizeF(5, 5))
pdc.Save(file)
pdc.Show()

生成的文档：

示例二

Dim file As String = "c:\temp\test.pdf"
Dim pdc As New PDFCreator()
Dim rect As New RectangleF(100, 100, 150, 90)
For i As Integer = 1 To 5
    Dim pen As New Pen(color.Green, 6 - i)
    pdc.DrawRectangle(pen, rect)
    rect.Inflate(10, 10)
Next
pdc.Save(file)
Process.Start(file)

生成的文档：

　

　

本页地址：http://www.foxtable.com/webhelp/topics/6100.htm