|
本文出自网易社区（club.163.com），如需转载，请联系原作者或网易
|
|
VFP9.0 Shape和Line控件的PolyPoint属性用来画多边形，多么奇妙，可是新手往往忽略某些细节，不能划出自己想要的图形。以下是我的一些实践经验。
1. 表单设定一个Shape控件，表单init定义一个二维数组
DIMENSION mypoly[5,2]
mypoly[1,1]=0
mypoly[1,2]=0
mypoly[2,1]=70
mypoly[2,2]=0
mypoly[3,1]=100
mypoly[3,2]=30
mypoly[4,1]=100
mypoly[4,2]=100
mypoly[5,1]=0
mypoly[5,2]=100
在上面五个点间用直线连接上，这个数组会画一个简单的直角梯形。
2. Shape和Line控件的PolyPoint属性值为：mypoly，也就是数组名。
3. 注意二维数组mypoly(x,y)代表每个顶点的x,y值。x,y并不是具体的像素，也不是top,left,height,width里的值。x，y代表点坐标在控件里的相对位置，以百分比计算。也就是一般在0~100间。
当然如果你选择超出上面的范围，则图形就有部分变成不可视，但图形继续存在，只是有点莫名其妙。
4. 上例，
第二个点：
mypoly[2,1]=70
mypoly[2,2]=0
x坐标70%及y坐标0%位置设置一个点。
5. 划出的图形大小可以通过调整控件的大小来改变。
6. fillstyle属性可以设定图形填充模式，“0”代表是实填充，fillcolor属性可以设顶填充颜色。
7. rotation属性可以设顶平面旋转角度，0~360之间，否则出错。
9. Line控件可以划直线，也可以划曲线，一般划直线lineslant=\或者是/，如果划曲线lineslant=S或者s，划曲线需要设定PolyPoint，具体参考上面的内容。
|
| 本文出自网易社区（club.163.com），如需转载，请联系原作者或网易 |
|
