在VFP中播放Flash動畫

Alkaid2015 2012-12-08

展開全文

上海　周敏

　相信廣大網(wǎng)迷已在網(wǎng)上看過了那些用Flash制作出的漂亮網(wǎng)頁及動畫,，也為其變幻莫測的效果而著迷,。那你想不想通過自己編制小程序也實現(xiàn)Flash動畫的播放呢?在VFP中可以使用Flash4自帶的SwFlash.ocx控件實現(xiàn)，具體方法如下：
　　第一步,，啟動VFP 6.0,，新建一表單Form1，將其Caption屬性設(shè)為“Flash動畫播放器”,。
　　第二步,，在菜單欄中選取“工具”→“選項”→“控件”，選中shockwave flash控件前的復選框,，然后選擇“應(yīng)用”并按“確定”,。這樣就為“表單控件”添加了shockwave flash控件。
　　第三步，將shockwave flash控件(注：名為Olecontrol1)放置在表單Form1中,，設(shè)置其適當?shù)拇笮?、位置，并設(shè)置其Quality屬性為1,，Scale model屬性為2(Flash動畫縮放至控件大小),。
　　第四步，向表單Form1中添加四個命令按鈕Command1,、Command2,、Command3、Command4,，將它們的Caption屬性分別設(shè)為“打開文件”,、“播放”、“暫?！焙汀巴顺觥?，并放置于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
　　好了,，將做好的表單存盤后運行一下吧!還滿意吧?有興趣的朋友還可以發(fā)揮自己的藝術(shù)天分，把表單美化一下,。這樣一個簡單,、易用且美觀的Flash動畫播放器就做好了。
　　注：本例在VFP 6.0中文版中通過,。
摘自《電腦報》