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()
绘制的曲线: