vfp表单中能不能加入FLASH动画文件
我是做一个汉字拼音软件,有一个表单中要显示FLASH动画,是演示汉字笔顺的文件
在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