如何在ＶＦＰ中實(shí)現(xiàn)文字動(dòng)畫效果

摘 要：本文從VFP語言的事件出發(fā)，介紹了如何在VFP中實(shí)現(xiàn)文字動(dòng)畫效果的具體實(shí)現(xiàn)方法。

關(guān)鍵詞：屬性 事件 代碼

在VFP應(yīng)用軟件的項(xiàng)目中，有一個(gè)主文件，它是整個(gè)應(yīng)用程序的運(yùn)行起始點(diǎn)。主文件的界面效果的好壞直接影響到人們對(duì)該軟件的印象。如何能夠在VFP應(yīng)用軟件中，實(shí)現(xiàn)文字動(dòng)畫效果、背景隨機(jī)變化、動(dòng)畫的切入等，都將直接影響到界面的效果。這里僅就實(shí)現(xiàn)文字動(dòng)畫效果的具體實(shí)現(xiàn)方法做一下簡單介紹。

首先建立一個(gè)新的表單（Form1），設(shè)置表單的Backcolor屬性，如：RGB（192，192，192），然后在表單上建立四個(gè)標(biāo)簽（Label1、Label2、Label3和Label4）和一個(gè)定時(shí)器（Timer1）。設(shè)置四個(gè)標(biāo)簽的Caption（標(biāo)題）屬性分別為“文”、“字”、“動(dòng)”、“畫”，Backstyle屬性為0（透明），F(xiàn)ontsize屬性為26，Autosize屬性為T（自動(dòng)調(diào)整大小）；設(shè)置定時(shí)器的Interval（定時(shí)間隔）為100，Enabled屬性為T（不可用）。

1.文字逐個(gè)底部飛入

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<=Top+20

Thisform.LabelT=Top

Num=Num+1

If Num=5

Thisform.Timer1.Enabled=.F.

Endif

Return

Endif

Thisform.LabelT=Thisform.LabelT-20

2.文字逐個(gè)上部飛入

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=-30

Endfor

Thisform.Timer1.Enabled=.T.

Timer1的Timer過程：

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

3.文字逐個(gè)左側(cè)切入

Label1、Label2、Label3和Label4的Alignment屬性為1（右邊），Autosize屬性為.F.。

Form1的Activate過程：

Public Width，Num

Num=1

Width=Thisform.Label1.Width

For I=1 To4

LabelW=′Label′+STR(I，1) +′.Width′

Thisform.LabelW=0

Endfor

Thisform.Timer1.Enabled=.t.

Timer1的Timer過程：

LabelW=′Label′+STR(Num，1)+′.Width′

If Thisform.LabelW >=Width - 5

Thisform.LabelW=Width

Num=Num+1

If Num=5

Thisform.Timer1.Enabled=.F.

Endif

Return

Endif

Thisform.LabelW=Thisform.LabelW+5

4.字符逐個(gè)階梯狀向右下展開

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. 字符逐個(gè)階梯狀向左上收縮

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<= 5 or Thisform.LabelW <= 5

Thisform.LabelH=0

Thisform.LabelW=0

Num=Num-1

If Num=0

Thisform.Timer1.Enabled=.F.

Endif

Return

Endif

Thisform.LabelH=Thisform.LabelH - 5

Thisform.LabelW=Thisform.LabelW - 5

以上的五例均是針對(duì)有4 個(gè)文字的情況編制的，若需顯示多個(gè)文字可根據(jù)相應(yīng)字?jǐn)?shù)進(jìn)行修改或?qū)⑵涓臑橐粋€(gè)通用程序來使用。建議作法是將它們保存為“類”，并加以修改制作成一個(gè)通用類，如此便可在其它的程序中直接對(duì)其進(jìn)行調(diào)用，一勞永逸。