华南俳烁实业有限公司

　　在當(dāng)今眾多的編程語言中，VFP的簡單、方便和實用使我一直情有獨衷。它不僅提供了對中、小型數(shù)據(jù)庫完善的管理和操作機(jī)制，在應(yīng)用程序界面的設(shè)計上也提供了豐富的手段。比如說，VFP的表單設(shè)計器提供了圖象控制，允許我們直接在表單中添加.BMP圖片。稍顯不足的是它不支持其他格式的圖象，更不用說是動畫了。

　　由于圖象控制和其他控制一樣，具有自己一整套的屬性，在設(shè)計時可以動態(tài)地改變它，因此我在實踐中摸索到一種變通的方法，在VFP的表單中加入模擬的“動畫”。其設(shè)計思想是準(zhǔn)備幾幀連貫的.BMP圖象(可用相關(guān)的繪圖軟件自行制作)，利用計時器的計時功能，在規(guī)定的時間間隔內(nèi)動態(tài)地改變所顯示的.BMP圖象。下面我就通過一個演示實例來加以說明：首先，我準(zhǔn)備了四幅連貫的紅旗飄圖象，分別取名為：1.bmp,2.bmp,3.bmp和4.bmp。如下所示(略)，然后使用表單設(shè)計器設(shè)計表單如下：

　　演示表單

　　其中包括三個控制：Image(圖象),Timer(計時器)和Command(命令按鈕) 。設(shè)置屬性如下：

　　Image.Picture=“1.bmp”Ttimer.Enabled=.t.Timer.Interval=200Command.Caption=“退出演示”

　　在表單的Activate事件中添加如下代碼：

　　Public II=1在計時器的Timer事件中添加代碼如下：If　I $#@62;=4　　I=1Else 　　I=I+1EndifPic=Str(I,1)+".bmp"Thisform.Image.Picture= Pic

　　在命令按鈕的Click事件中添加代碼如下：

　　Thisform.Release

　　最后，保存并運行表單，我們會看到窗口中一幅鮮艷的紅旗在迎風(fēng)招展。單擊“退出演示”命令按鈕，模擬動畫的演示就結(jié)束了。