| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1019 人关注过本帖
标题:那位高手知道怎么样再表单中播放flash
只看楼主 加入收藏
游离之
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-5-14
收藏
 问题点数:0 回复次数:2 
那位高手知道怎么样再表单中播放flash
vfp初学者:想在表单中添加用播放器播放flash动画,不知道怎么做,在此先行谢过
搜索更多相关主题的帖子: 表单中 flash 播放 动画 
2008-05-14 12:18
clx518
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-5-22
收藏
得分: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中文版中通过。
2008-05-22 09:34
游离之
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-5-14
收藏
得分:0 
谢谢啊,已经弄好了
2008-06-04 21:05
快速回复:那位高手知道怎么样再表单中播放flash
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027995 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved