- 相關(guān)推薦
在VFP6.0程序設(shè)計中使用動畫效果
在VFP6.0程序設(shè)計中使用動畫效果
邯鄲物資中專學(xué)校 張巍
摘要：本文引用幾個實際例子，說明使用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ù)剡\用動畫的設(shè)計，才能達(dá)到這些效果。下面介紹使用表單中計時器控件創(chuàng)建動畫的方法。
2、基本思想：計時器控件能周期性地按時間間隔自動執(zhí)行它的Timer事件代碼，在程序中來處理反復(fù)發(fā)生的動作。計時器控件工作的三要素是①Timer事件代碼，表示執(zhí)行的動作。②Interval 屬性，用于指定時間間隔。③Enabled屬性，其值為T時，啟動計時工作，為F時掛起計時器的運行。程序設(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'
[1] [2] 下一頁
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)簽控件若改為圖象控件也可使用。
上一頁 [1] [2]
【在VFP6.0程序設(shè)計中使用動畫效果】相關(guān)文章：
《PPT動畫效果的設(shè)置》教學(xué)反思08-25
動畫專業(yè)中Flash動畫設(shè)計的教學(xué)探討08-18
探析動畫視聽設(shè)計元素在日式動畫作品中的應(yīng)用08-19
淺談游戲教學(xué)在《算法與程序設(shè)計》中的應(yīng)用08-01
淺談油畫教學(xué)中的肌理效果與運用08-18
電教媒體在語文側(cè)重教學(xué)中的作用與效果08-17
在VB中如何使用 Winsock 控件08-06