vfp表单中如何设计成我想要效果

添加时间控件,用时间来控制

时间控件Timer1,线条控件line1,line2,line3

FORM.init如下:(如果线条状态已自行设置完毕的话,可以不用)

thisform.line1.height=0
thisform.line1.left=-thisform.width
thisform.line1.width=thisform.width
thisform.line1.top=10 &&自行设置
thisform.line2.height=0
thisform.line2.left=-thisform.width
thisform.line2.width=thisform.width
thisform.line2.top=15 &&自行设置
thisform.line3.height=0
thisform.line3.left=-thisform.width
thisform.line3.width=thisform.width
thisform.line3.top=20 &&自行设置
thisform.timer1.enabled=.t.

Timer1的interval属性设置为20

Timer1.timer如下

if thisform.line1.left<=thisform.width
thisform.line1.left=thisform.line1.left+1
thisform.line2.left=thisform.line2.left+1
thisform.line3.left=thisform.line3.left+1
else
this.enabled=.F.
endif
thisform.refresh()

添加Timer控件，不仅可以控制线条，还能控制标签等，以达到动画的效果。