DrawBezier

DrawBezier用于绘制贝塞尔曲线，其语法为：

DrawBezier(pen, start, ctl1, ctl2, end)

参数 说明
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        实线，这是默认值
start PointF类型，曲线的起点
ctl1 PointF类型，曲线的第一个控制点
ctl2 PointF类型，曲线的第二个控制点
end PointF类型，曲线的终点

示例

Dim file As String = "c:\temp\test.pdf"
Dim pdc As New PDFCreator
'定义数据点
Dim pts() As PointF = {
New PointF(100, 200), New PointF(150, 130),
New PointF(280, 240), New PointF(330, 120)
}
pdc.DrawBezier(New pen(color.Blue, 2), pts(0), pts(1), pts(2), pts(3)) '绘制贝塞尔曲线
pdc.DrawLines(Pens.Red, pts) '绘制连接数据点的直线
For Each pt As PointF In pts '绘制数据点标记
    pdc.FillEllipse(Color.Green, pt.X - 3, pt.Y - 3, 6, 6)
Next
pdc.Save(file)
pdc.Show()

绘制的图形：

　

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