主题：[求助]贝塞尔曲线编程的用法求教。

帮助文件中的GDI+这节没有对DrawBeziers的用法给出说明，在网上找了很多资料，以下代码在绘图板中能成功画出一条连续点的贝塞尔曲线：

 

Dim ps(10) As Point

 

ps(0) = New Point(700,400)  '第1个点
ps(1) = New Point(700,400)  ‘控制点

 

ps(2) = New Point(702,500)  ‘控制点
ps(3) = New Point(705,500)  ‘第2个点
ps(4) = New Point(708,500)  ‘控制点

 

ps(5) = New Point(707,450)  ‘控制点
ps(6) = New Point(710,450)  ‘第3个点
ps(7) = New Point(713,450)  ‘控制点

 

ps(8) = New Point(715,550)  ‘控制点
ps(9) = New Point(715,550)  ‘第4个点

 

Dim bzs as Point() = {ps(0),ps(1),ps(2),ps(3),ps(4),ps(5),ps(6),ps(7),ps(8),ps(9)}

 

g.DrawBeziers(Pens.Red,bzs)

 

问题是，我要画N多个点的连续贝塞尔曲线，就要用到For...Next或Do...Loop循环，变量bzs应该如何初始化？

 

我有试验过以下方法，但出错。

 

1、直接使用ps变量，g.DrawBeziers(Pens.Red,ps)，编译可以通过，但运行时出错。

 

2、先定义一个空的bzs，Dim bzs as Point()，然后准备对bzs赋值，编译都通不过。

 

如何在绘图板中正确使用DrawBeziers？

楼上的方法编译通不过，用New List定义的变量不能用在贝塞尔函数中，我试验了以下代码可行。

Dim bzs as Point() = {}  '定义一个空数组。

既不能用Dim bzs() as Point, 也不能用Dim bzs as New List (of Point), 只能用Dim bzs as Point() = {}，Foxtable中好像没有括号()在类型Point后这样的语法吧......

这个是可以的啊：