VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

評語:常聽人說VFP有很多的缺點不足之處,
比如漂亮的動畫,比起Flash做起動畫過之猶不及
光使用VFP作此繁雜事務,只會吃力不討好的
聰明的工程師應是擅用各種工具的優點
在此蒐集這Flash方法,希望大家能善用

如何在VFP中播放Flash動畫
相信廣大網迷已在網上看過了那些用Flash製作出的漂亮網頁及動畫，也為其變幻莫測的效果而著迷。那你想不想通過自己編制小程式也實現Flash動畫的播放呢?在VFP中可以使用Flash4自帶的SwFlash.ocx控制項實現，具體方法如下：
　　第一步，啟動VFP 6.0，新建一表單Form1，將其Caption屬性設為“Flash動畫播放器”。
　　第二步，在功能表欄中選取“工具”→“選項”→“控制項”，選中shockwave flash控制項前的核取方塊，然後選擇“應用”並按“確定”。這樣就為“表單控制項”添加了shockwave flash控制項。
　　第三步，將shockwave flash控制項(注：名為Olecontrol1)放置在表單Form1中，設置其適當的大小、位置，並設置其Quality屬性為1，Scale model屬性為2(Flash動畫縮放至控制項大小)。
　　第四步，向表單Form1中添加四個命令按鈕Command1、Command2、Command3、Command4，將它們的Caption屬性分別設為“打開檔”、“播放”、“暫停”和“退出”，並放置于Shockwave flash控制項下方的適當位置。
　　第五步，寫入如下代碼：
　　1．Command1.click Event:
　　Thisform.Olecontrol1.movie=getfile(″SWF″) ＆確實尾碼名為杄SWF
　　Thisform.refresh
　　2．Command2.click Event:
　　Thisform.Olecontrol1.playing=.T. ＆播放Flash動畫
　　Thisform.refresh
　　3．Command3.click Event:
　　Thisform.Olecontrol1.playing=.F. ＆暫停當前動畫的播放
　　Thisform.refresh
　　4．Command4.click Event:
　　a=Message Box(″你真的要退出嗎?″，1＋32＋0，″提示資訊″)
　　if a=1
　　Thisform.release ＆選擇“確定”按鈕，則退出
　　endif
　　好了，將做好的表單存檔後運行一下吧!還滿意吧?有興趣的朋友還可以發揮自己的藝術天分，把表單美化一下。這樣一個簡單、易用且美觀的Flash動畫播放器就做好了。
　　注：本例在VFP 6.0中文版中通過。

Ruey · 發表於: 星期日八月 31, 2003 5:20 pm 文章主題:

說明書已放上

有需要的
看著辦吧