在表单上画简单的图形

vfp9中画多边形可以给形状控件的polyPoints属性指定一个坐标数组
自带的参考示例中就有

Visual FoxPro 9.0 语言参考
PolyPoints 属性 *NEW
请参阅 示例
 全部折叠 全部展开
为使用 Shape 控件创建多边形及使用 Line 控件创建多边线条指定一个坐标的数组。设计和运行时可读/写。

对于 Shape 控件，PolyPoints 创建一个多边形。对于 Line 控件，PolyPoints 创建一个多边线条或形状。

 
Control.PolyPoints [= cArrayName]
 

属性值
cArrayName
指定一个数组的名称，其中包含为绘制多边形状或线条的坐标对儿。坐标使用格式(X, Y)。数组必须在作用域之内、按顺序完全标识要显示的多边形或多边线条。 提示：
数组可以是任何尺寸；但是，最少要包含 2 列。在第一列中存储横坐标(X)的点，第二列中存储纵坐标(Y)的点。数组必须全部使用数值填充；否则，包含假(.F.)的尾部元素将导致不能开始绘制线条或形状。
　
注意：
PolyPoints 要求最少 2 对儿坐标绘制线条，3 对儿坐标绘制多边线条，3 对儿坐标用形状控件绘制多边形状，4 对儿坐标用线条控件绘制多边线条或形状。
　
要用线条控件创建一个多边形状，数组中的第 5 对儿坐标必须与第 1 对儿坐标相同，才能绘制最后的线段并完成多边形状。当设置 LineSlant 属性以绘制 Bezier 曲线时，必须指定坐标总数是(3n + 1)，n 表示要绘制的弯曲数。更多的信息，请参见 LineSlant 属性.
说明
应用于：Line 控件 | Shape 控件

使用line(x1,y1,x2,y2)这种模式,根据坐标点变化来改变图形

不是