DrawBeziers

DrawBeziers用于绘制连续的多条贝塞尔曲线,语法为:

DrawBeziers(Pen pen, points)

参数 说明
pen 画笔
points PointF数组,第一条曲线需要4个数据点,之后每增加一条曲线需要额外的三个数据点(起点为上一条曲线的终点),所以总的点数必须是3n+1

示例

Dim file As String = "c:\temp\test.pdf"
Dim
pdc As New PDFCreator
'
定义数据点
Dim
pts() As PointF = {
New
PointF( 50, 100), New PointF(100, 10), New PointF(250, 50),
New
PointF(400, 100), New PointF(500, 150), New PointF(550, 250),
New
PointF(400, 300)
}
pdc.DrawBeziers(
New pen(color.Blue, 2), pts) '绘制贝塞尔曲线
pdc.DrawLines(Pens.Red, pts)
'绘制连接数据点的直线
For
Each pt As PointF In pts '绘制数据点标记
    pdc.DrawRectangle(Pens.Green, pt.X - 2, pt.Y - 2, 4, 4)

Next

pdc.Save(file)

pdc.Show()

绘制的曲线:


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