明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

在VFP中模擬動畫

[摘要]作者:自由編程 在當今眾多的編程語言中,VFP的簡單、方便和實用使我一直情有獨衷。它不僅提供了對中、小型數據庫完善的管理和操作機制,在應用程序界面的設計上也提供了豐富的手段。比如說,VFP的表...
作者:自由編程

    在當今眾多的編程語言中,VFP的簡單、方便和實用使我一直情有獨衷。它不僅提供了對中、小型數據庫完善的管理和操作機制,在應用程序界面的設計上也提供了豐富的手段。比如說,VFP的表單設計器提供了圖像控制,允許我們直接在表單中添加.BMP圖片。稍顯不足的是它不支持其他格式的圖像,更不用說是動畫了。    由于圖像控制和其他控制一樣,具有自己一整套的屬性,在設計時可以動態(tài)地改變它,因此我在實踐中摸索到一種變通的方法,在VFP的表單中加入模擬的“動畫”。其設計思想是準備幾幀連貫的.BMP圖像(可用相關的繪圖軟件自行制作),利用計時器的計時功能,在規(guī)定的時間間隔內動態(tài)地改變所顯示的.BMP圖像。下面我就通過一個演示實例來加以說明。    首先,我準備了四幅連貫的紅旗飄圖像,分別取名為:1.bmp,2.bmp,3.bmp和4.bmp。如右圖所示。然后使用表單設計器設計表單如下:演示表單其中包括三個控制:Image(圖像),Timer(計時器)和Command(命令按鈕)。設置屬性如下:Image.Picture=1.bmpTtimer.Enabled=.t.Timer.Interval=200Command.Caption=退出演示在表單的Activate事件中添加如下代碼:Public II=1在計時器的Timer事件中添加代碼如下:If I>=4I=1ElseI=I+1EndifPic=Str(I,1)+".bmp"Thisform.Image.Picture= Pic在命令按鈕的Click事件中添加代碼如下:Thisform.Release最后,保存并運行表單,我們會看到窗口中一幅鮮艷的紅旗在迎風招展。單擊“退出演示”命令按鈕,模擬動畫的演示就結束了。