|
上?！≈苊? 相信廣大網(wǎng)迷已在網(wǎng)上看過了那些用Flash制作出的漂亮網(wǎng)頁及動(dòng)畫，也為其變幻莫測(cè)的效果而著迷。那你想不想通過自己編制小程序也實(shí)現(xiàn)Flash動(dòng)畫的播放呢?在VFP中可以使用Flash4自帶的SwFlash.ocx控件實(shí)現(xiàn)，具體方法如下： 第一步，啟動(dòng)VFP 6.0，新建一表單Form1，將其Caption屬性設(shè)為“Flash動(dòng)畫播放器”。 第二步，在菜單欄中選取“工具”→“選項(xiàng)”→“控件”，選中shockwave flash控件前的復(fù)選框，然后選擇“應(yīng)用”并按“確定”。這樣就為“表單控件”添加了shockwave flash控件。 第三步，將shockwave flash控件(注：名為Olecontrol1)放置在表單Form1中，設(shè)置其適當(dāng)?shù)拇笮?、位置，并設(shè)置其Quality屬性為1，Scale model屬性為2(Flash動(dòng)畫縮放至控件大小)。 第四步，向表單Form1中添加四個(gè)命令按鈕Command1、Command2、Command3、Command4，將它們的Caption屬性分別設(shè)為“打開文件”、“播放”、“暫?！焙汀巴顺觥?，并放置于Shockwave flash控件下方的適當(dāng)位置。 第五步，寫入如下代碼： 1．Command1.click Event: Thisform.Olecontrol1.movie=getfile(″SWF″) ＆ 確實(shí)后綴名為SWF Thisform.refresh 2．Command2.click Event: Thisform.Olecontrol1.playing=.T. ＆ 播放Flash動(dòng)畫 Thisform.refresh 3．Command3.click Event: Thisform.Olecontrol1.playing=.F. ＆ 暫停當(dāng)前動(dòng)畫的播放 Thisform.refresh 4．Command4.click Event: a=Message Box(″你真的要退出嗎?″，1＋32＋0，″提示信息″) if a=1 Thisform.release ＆ 選擇“確定”按鈕，則退出 endif 好了，將做好的表單存盤后運(yùn)行一下吧!還滿意吧?有興趣的朋友還可以發(fā)揮自己的藝術(shù)天分，把表單美化一下。這樣一個(gè)簡(jiǎn)單、易用且美觀的Flash動(dòng)畫播放器就做好了。 注：本例在VFP 6.0中文版中通過。 摘自《電腦報(bào)》 |
|
|
