- 相關推薦
在VFP6.0程序設計中使用動畫效果
在VFP6.0程序設計中使用動畫效果
邯鄲物資中專學校 張巍
摘要：本文引用幾個實際例子，說明使用VFP6.0開發程序時，使用戶的界面具有動畫效果，主要使用了計時器控件。
關鍵詞：表單，計時器控件，事件代碼
1、引言:Visual Foxpro 6.0采用了可視化的面向對象的編程工具和對OLE和ActiveX的支持，可以通過引用相關對象的方法或定義其屬性來標控和使用一些對象。在使用VFP6.0進行系統設計時，開發人員常常希望設計的界面生動，美觀，這就需要適當地運用動畫的設計，才能達到這些效果。下面介紹使用表單中計時器控件創建動畫的方法。
2、基本思想：計時器控件能周期性地按時間間隔自動執行它的Timer事件代碼，在程序中來處理反復發生的動作。計時器控件工作的三要素是①Timer事件代碼，表示執行的動作。②Interval 屬性，用于指定時間間隔。③Enabled屬性，其值為T時，啟動計時工作，為F時掛起計時器的運行。程序設計中首先創建表單，在表單中添加表單控件，再設置其各的屬性值。
3、程序設計：
1）讓文字移動，設置一個向左移動的字幕。
在表單上添加標簽和計時器控件各一個，將Label1 的Caption 值設置為“歡迎光臨”，Timer1的Interval的值設置為200，Enabled設置為T
Timer的事件代碼編寫如下：
IF Thisform.label1.left- Thisform.label1.width<0
Thisform.label1.left= Thisform.width
ELSE
Thisform.label1.left= Thisform.label1.left-10
ENDIF
即“歡迎光臨”在表單中就有動畫效果，四個字從右邊游入，左邊游出，并不斷循環執行。
2）讓文字飛起來，設置“歡迎光臨”四個字從表單底部飛入。
在表單上創建標簽控件（四個）和計時器控件（一個）屬性設置方法同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
上述操作產生動畫效果是,四個字依次從表單底部飛入表單上部。
2）設置當前日期時間
表單控件和屬性同1）
Timer的事件代碼編寫如下：
IF Thisform.label1.caption<>TTOC(datetime())
Thisform.label1.caption=TTOC(datetime())
ENDIF
表單中的值將隨著時間日期的變化而變化。
4、結束語：以上使用計時器控件設置了幾種動畫效果，在此基礎上還可以演變出其它的動畫效果來，比如，文字依次從左邊向右展開，從左側飛入等等。上述標簽控件若改為圖象控件也可使用。
上一頁 [1] [2]
【在VFP6.0程序設計中使用動畫效果】相關文章：
《PPT動畫效果的設置》教學反思08-25
動畫專業中Flash動畫設計的教學探討08-18
學會使用排比論據增強論證效果08-23
淺談游戲教學在《算法與程序設計》中的應用08-01
《五柳先生傳》中“贊”的藝術效果08-16
淺談油畫教學中的肌理效果與運用08-18
電教媒體在語文側重教學中的作用與效果08-17
在VB中如何使用 Winsock 控件08-06