我們可以使用VFP來實現(xiàn)文字動畫效果，這里筆者就以讓文字逐個從屏幕底部飛入為例，來說明VFP在實現(xiàn)文字動畫方面的功能。首先建立一個新的表單（Form1），設(shè)置表單的Backcolor屬性為RGB（192，192，192），然后在表單上建立四個標簽（Label1、Label2、Label3和Label4）和一個定時器（Timer1）。
　　設(shè)置四個標簽的Caption（標題）屬性分別為‘文’、‘字’、‘動’、‘畫’，Backstyle屬性為0（透明），F(xiàn)ontsize屬性為26，Autosize屬性為.T.（自動調(diào)整大?。?；
　　設(shè)置定時器的Interval（定時間隔）為100，Enabled屬性為.T.（不可用）。我們假設(shè)Label1、Label2、Label3和Label4的Autosize屬性為.T.，Alignment屬性為0（左邊）。
　　下面就是實現(xiàn)該功能的部分源代碼：
　　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