Question

vfp设计每隔0.2秒,图形从正方形变成圆形,并从右至左运动

vfp设计每隔0.2秒,图形从正方形变成圆形,并从右至左运动

Answer 1

1.在表单设计中添加一个“形状”控件，命名为“形状控件”，定义高度和宽度一样，即正方形
2.添加一个“计时器”控件，定义Interval这200，即200毫秒=0.2秒
3.在“Timer”事件中添加更改值的命令
(1)形状改变
添加一个“文本框”控件，命名为“形状”，赋值为1
do case
case thisform.形状控件.Curvature=1
thisform.形状.value=1
case thisform.形状控件.Curvature=99
thisform.形状.value=-1
endcase
thisform.形状控件.Curvature=thisform.形状控件.Curvature+thisform.形状.value
Curvature是指形状控件的角的曲率，取值范围是0～99（0是直角，表现为正方形或长方形，99是圆角；如果高度和宽度相同则为正圆形，其它为椭圆形；其它值为直线边、圆孤角，效果可以自己试验）
(2)位置改变命令
添加一个“文本框”控件，命名为“位置”，赋值为1
do case
case thisform.形状控件.left=1
thisform.位置.value=1
case thisform.形状控件.left=thisform.width-thisform.形状控件.width
thisform.位置.value=-1
endcase
thisform.形状控件.left=thisform.形状控件.left+thisform.位置.value
left是指形状控件的最左边的位置，width是指控件的宽度
thisform.width-thisform.形状控件.width是指表单的宽度减去形状控件的宽度，也就计算出了形状控件可以移动到表单的最右边的位置，例如，表单宽度为700，形状控件宽度为100，当形状控件向右(left+1)移动到600时，形状控件的右边正好撞到表单的边缘，然后开始向左(left+(-1))移动