主题：请关如何在VFP菜单中调用FLASH做好的文件
wangjiayu45
[专家分：0] 发布于 2009-01-09 11:21:00
请关如何在VFP菜单中调用FLASH做好的文件???
回复列表 （共1个回复）
沙发
cbl518 [专家分：57140] 发布于 2009-01-09 13:16:00
菜单的选项执行一句：
ON SELECTION POPUP 菜单名 DO 播放FIASH
从菜单文件代码最后添加：
FUNCTION 播放FIASH
PUBLIC oform1,swfwJName
swfwJName="c:\FIASH文件.swf" && 改成你要运行的FIASH文件
oform1=NEWOBJECT("form1")
oform1.Show
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT olecontrol1 AS oleflash WITH ;
Top = 24,Left = 12,Height = 192,Width = 312, ;
Name = "Ol1"
PROCEDURE Ol1.Init
this.movie = swfwJName
this.play()
ENDPROC
ENDDEFINE
Define class oleflash as OLECONTROL
OleClass="ShockwaveFlash.ShockwaveFlash"
EndDefine
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 请关如何在VFP菜单中调用FLASH做好的文件