[如何在ＶＦＰ中实现文字动画效果]ppt文字动画效果

　　摘 要：本文从VFP语言的事件出发，介绍了如何在VFP中实现文字动画效果的具体实现方法。 　　关键词：属性 事件 代码 　　 　　在VFP应用软件的项目中，有一个主文件，它是整个应用程序的运行起始点。主文件的界面效果的好坏直接影响到人们对该软件的印象。如何能够在VFP应用软件中，实现文字动画效果、背景随机变化、动画的切入等，都将直接影响到界面的效果。这里仅就实现文字动画效果的具体实现方法做一下简单介绍。
　　首先建立一个新的表单（Form1），设置表单的Backcolor属性，如：RGB（192，192，192），然后在表单上建立四个标签（Label1、Label2、Label3和Label4）和一个定时器（Timer1）。设置四个标签的Caption（标题）属性分别为“文”、“字”、“动”、“画”，Backstyle属性为0（透明），Fontsize属性为26，Autosize属性为T（自动调整大小）；设置定时器的Interval（定时间隔）为100，Enabled属性为T（不可用）。
　　
　　1.文字逐个底部飞入
　　
　　Label1、Label2、Label3和Label4的Autosize属性为T，Alignment属性为0（左边）。
　　Form1的Activate过程：
　　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.
　　Timer1的Timer过程：
　　LabelT=′Label′+STR(Num,1)+′.Top′
　　If Thisform.&LabelT=Width - 5
　　Thisform.&LabelW=Width
　　Num=Num+1
　　If Num=5
　　Thisform.Timer1.Enabled=.F.
　　Endif
　　Return
　　Endif
　　Thisform.&LabelW=Thisform.&LabelW+5
　　
　　4.字符逐个阶梯状向右下展开
　　
　　Label1、Label2、Label3和Label4的Autosize属性为.F.，Alignment属性为0（左边）。
　　Form1的Activate过程：
　　Public Height，Width，Num
　　Num=1
　　Height=Thisform.Label1.Height
　　Width=Thisform.Label1.Width
　　For I=1 To 4
　　LabelH=′Label′+STR(i,1)+′.Height′
　　LabelW=′Label′+STR(i,1)+′.Width′
　　Thisform.&LabelH=0
　　Thisform.&LabelW=0
　　Endfor
　　Thisform.Timer1.Enabled=.T.
　　Timer1的Timer过程：
　　LabelH=′Label′+STR(Num,1)+′.Height′
　　LabelW=′Label′+STR(Num,1)+′.Width′
　　If Thisform.&LabelH>=Height-5 OR Thisform.&
　　LabelW>=Width-5
　　Num = Num + 1
　　If Num = 5
　　Thisform.Timer1.Enabled = .F.
　　Endif
　　Return
　　Endif
　　Thisform.&LabelH = Thisform.&LabelH + 5
　　Thisform.&LabelW = Thisform.&LabelW + 5
　　
　　5. 字符逐个阶梯状向左上收缩
　　
　　Label1、Label2、Label3和Label4的Autosize属性为.F.，Alignment属性为0（左边）。
　　Form1的Activate过程：
　　Public Height,Width，Num
　　Num=4
　　Height=Thisform.Label1.Height
　　Width=Thisform.Label1.Width
　　Thisform.Timer1.Enabled = .T.
　　Timer1的Timer过程：
　　LabelH=′Label′ + STR(i,1) + ′.Height′
　　LabelW=′Label′ + STR(i,1) + ′.Width′
　　If Thisform.&LabelH