我们可以使用VFP来实现文字动画效果,这里笔者就以让文字逐个从屏幕底部飞入为例,来说明VFP在实现文字动画方面的功能。首先建立一个新的表单(Form1),设置表单的Backcolor属性为RGB(192,192,192),然后在表单上建立四个标签(Label1、Label2、Label3和Label4)和一个定时器(Timer1)。
设置四个标签的Caption(标题)属性分别为‘文’、‘字’、‘动’、‘画’,Backstyle属性为0(透明),Fontsize属性为26,Autosize属性为.T.(自动调整大小); 设置定时器的Interval(定时间隔)为100,Enabled属性为.T.(不可用)。我们假设Label1、Label2、Label3和Label4的Autosize属性为.T.,Alignment属性为0(左边)。 下面就是实现该功能的部分源代码: Public Top,Num Num = 1 Top = Thisform.Label1.Top For I = 1 To 4 LabelT = 'Label' + STR(i,1) + '.Top' Thisform.&LabelT = Thisform.Height Endfor Thisform.Timer1.Enabled = .T. LabelT = 'Label' + STR(Num,1) + '.Top' If Thisform.&LabelT <= Top + 20 Thisform.&LabelT = Top Num = Num + 1 If Num = 5 Thisform.Timer1.Enabled = .F. Endif Return Endif Thisform.&LabelT = Thisform.&LabelT – 20 |
|