打印本文 打印本文  关闭窗口 关闭窗口  
在VFP中播放Flash动画
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:50:55  文章录入：杜斌  责任编辑：杜斌
　　相信广大网迷已在网上看过了那些用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中文版中通过。
打印本文 打印本文  关闭窗口 关闭窗口