|
在VFP6.0程序設(shè)計中使用動畫效果
在VFP6.0程序設(shè)計中使用動畫效果 在VFP6.0程序設(shè)計中使用動畫效果 邯鄲物資中專學(xué)校 張巍 摘要：本文引用幾個實(shí)際例子，說明使用VFP6.0開發(fā)程序時，使用戶的界面具有動畫效果，主要使用了計時器控件。 關(guān)鍵詞：表單，計時器控件，事件代碼 1、引言:Visual Foxpro 6.0采用了可視化的面向?qū)ο蟮木幊坦ぞ吆蛯LE和ActiveX的支持，可以通過引用相關(guān)對象的方法或定義其屬性來標(biāo)控和使用一些對象。在使用VFP6.0進(jìn)行系統(tǒng)設(shè)計時，開發(fā)人員常常希望設(shè)計的界面生動，美觀，這就需要適當(dāng)?shù)剡\(yùn)用動畫的設(shè)計，才能達(dá)到這些效果。下面介紹使用表單中計時器控件創(chuàng)建動畫的方法。 2、基本思想：計時器控件能周期性地按時間間隔自動執(zhí)行它的Timer事件代碼，在程序中來處理反復(fù)發(fā)生的動作。計時器控件工作的三要素是①Timer事件代碼，表示執(zhí)行的動作。②Interval 屬性，用于指定時間間隔。③Enabled屬性，其值為T時，啟動計時工作，為F時掛起計時器的運(yùn)行。程序設(shè)計中首先創(chuàng)建表單，在表單中添加表單控件，再設(shè)置其各的屬性值。 3、程序設(shè)計： 1）讓文字移動，設(shè)置一個向左移動的字幕。 在表單上添加標(biāo)簽和計時器控件各一個，將Label1 的Caption 值設(shè)置為“歡迎光臨”，Timer1的Interval的值設(shè)置為200，Enabled設(shè)置為T Timer的事件代碼編寫如下： IF Thisform.label1.left- Thisform.label1.width<0 Thisform.label1.left= Thisform.width ELSE Thisform.label1.left= Thisform.label1.left-10 ENDIF 即“歡迎光臨”在表單中就有動畫效果，四個字從右邊游入，左邊游出，并不斷循環(huán)執(zhí)行。 2）讓文字飛起來，設(shè)置“歡迎光臨”四個字從表單底部飛入。 在表單上創(chuàng)建標(biāo)簽控件（四個）和計時器控件（一個）屬性設(shè)置方法同1）。
Timer的事件代碼編寫如下： Labelt='labelt'+str(n,1)+'.top' 在VFP6.0程序設(shè)計中使用動畫效果IF Thisform.&labelt<=high Thisform.&labelt=high N=N+1 IF N=5 Thisform.timer1.enabled=.F. n=1 ENDIF ENDIF Thisform.&labelt=Thisform.&labelt-10 FORM的Activate事件代碼： PUBLIC high, n n=1 i=1 high=Thisform.labebl1.top DO WHILE I<=4 labelt='label'+str(i,1)+'.top' Thisform．&labelt=Thisform.hight i= i+1 ENDDO 上述操作產(chǎn)生動畫效果是,四個字依次從表單底部飛入表單上部。 2）設(shè)置當(dāng)前日期時間 表單控件和屬性同1） Timer的事件代碼編寫如下： IF Thisform.label1.caption<>TTOC(datetime()) Thisform.label1.caption=TTOC(datetime()) ENDIF
表單中的值將隨著時間日期的變化而變化。 4、結(jié)束語：以上使用計時器控件設(shè)置了幾種動畫效果，在此基礎(chǔ)上還可以演變出其它的動畫效果來，比如，文字依次從左邊向右展開，從左側(cè)飛入等等。上述標(biāo)簽控件若改為圖象控件也可使用。
|