Database 版 (精华区)
发信人: mengy (LEAR DLLS 命令时,将从内存中清除), 信区: Database
标 题: 在VFP中播放Flash动画
发信站: 哈工大紫丁香 (2000年12月30日18:22:22 星期六), 转信
在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中文版中通过。(上海 周敏)
摘自《电脑报》
--
大海无边天做岸
山登绝顶我为风
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间:2.040毫秒