标题:[求助] flash 控件怎么用
只看楼主
fatspring
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-1-25
 问题点数:0 回复次数:1 
[求助] flash 控件怎么用
想在form 里面加个FLASH 上网找了一下,都是用shockwave flash object控件的,代码也全是这一个

  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

仿照它自己新建了个form 尝试
但只要我一按command1 就弹一个打开窗口要我打开文件,但文件名是help file 的,
我写的是
getfile("colorlight.swf")


搜索更多相关主题的帖子: 控件 flash 
2007-01-29 10:54
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
得分:0 
好好看一下GETFILE()的用法,谢谢
getfile("swf")

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2007-02-02 19:23



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-118648-1-1.html




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

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