| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1218 人关注过本帖
标题:vfp表单中能不能加入FLASH动画文件
只看楼主 加入收藏
tanglijin
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-12-4
结帖率:0
收藏
已结贴  问题点数:20 回复次数:15 
vfp表单中能不能加入FLASH动画文件
我是做一个汉字拼音软件,有一个表单中要显示FLASH动画,是演示汉字笔顺的文件
搜索更多相关主题的帖子: 汉字笔顺 汉字拼音 FLASH 动画 软件 
2013-12-04 16:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:7 
可以

坚守VFP最后的阵地
2013-12-04 17:03
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:7 
是的 能加入FLASH动画文件
2013-12-04 17:54
tanglijin
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-12-4
收藏
得分:0 
求高手指点
怎样加载
2013-12-04 18:58
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
程序代码:
在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

2013-12-04 20:19
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
SWFlash.rar (86.33 KB)
2013-12-04 20:20
tanglijin
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-12-4
收藏
得分:0 
我用的VFP9加载不了swflash
2013-12-04 20:30
tanglijin
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-12-4
收藏
得分:0 
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
命令中的movie,playing也没有这两个命令
2013-12-04 20:35
tanglijin
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-12-4
收藏
得分:0 
我用的是FLASH8
2013-12-04 20:36
tanglijin
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-12-4
收藏
得分:0 
不知道高手可有其他高招
2013-12-04 20:37
快速回复:vfp表单中能不能加入FLASH动画文件
数据加载中...
 
   



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

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