大家帮我看一下这段VFP程序是做什么用的？

来源：百度知道编辑：UC知道时间：2024/05/09 20:20:23

PUBLIC oform1,swfwJName
oform1=NEWOBJECT("form1")
oform1.Show
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
width = 636
height = 260
ADD OBJECT olecontrol1 AS oleflash WITH ;
Top = 24,Left = 12,Height = 192,Width = 612,Name = "Ol1"
PROCEDURE Ol1.Init
this.movie = swfwJName
this.play()
ENDPROC
ADD OBJECT command1 as commandbutton WITH ;
top = 228,left = 422,height = 22,width = 98,caption = '重播FLASH动画'
PROCEDURE command1.click
this.parent.Ol1.Init
ENDPROC

ADD OBJECT command2 as commandbutton WITH ;
top = 228,left = 526,height = 22,width = 98,caption = '打开FLASH文件'
PROCEDURE command2.click
swfwJName=GETFILE('swf')
IF EMPTY(swfwjName)
RETURN
ELSE
this.parent.Ol1.Init
ENDIF
ENDPROC
ENDDEFINE

Define class oleflash as OLECONTROL

定义一个表单，标题是FORM1，上面有两个按钮，COMMAND1,Caption属性是重播FLASH动画和COMMAND2，Caption属性是打开FLASH文件；以及olecontrol控件（ActiveX控件),系播放FLASH文件的。
command2.click 中：
swfwJName=GETFILE('swf') 是查找FLASH文件，放到变量swfwJName中，COMMAND2中play() 函数是播放该文件。

大家帮我看一下这段VFP程序是做什么用的？ [VFP]你帮我看一下这段代码中的"0+64"是甚么意思? 麻烦大家帮我看一下这段简单VB程序到底有什么问题? 请帮我看一下下面这段程序请帮我看一下这段C程序帮我翻译一下这段程序请大家帮我看一下这一段vb程序麻烦大家帮我看下,我的这段程序哪里错了? 帮我看一下这段翻译请大家帮忙看一下这段VB程序