Question

vb中添加flash控件为什么就无法保存工程

Answer 1

VB中对高版本的FLASH控件不认的原因。
有两种解决方法：
第一种：你先删除你电脑的FLASH。然后找个低版本的FLASH8.0就可以了。然后添加即可保存了，编译后再换成高版本也没有问题了。

第二种：动态加载FLASH控件
Dim tmpCtl As Object

Private Sub Form_Load()
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '动态添加控件
Set tmpCtl.Container = Form1

tmpCtl.Width = Form1.Width '设置外观
tmpCtl.Height = Form1.Height

tmpCtl.Visible = True
tmpCtl.object.LoadMovie 0, "D:flash.swf"

End Sub

追问

怎么把动画设置为全屏显示呢？

追答

tmpCtl.Width = me.Width '设置flash控件大小等于窗体的大小，记得把窗体设置为全屏显示
tmpCtl.Height = me.Height

你的flash尺寸必须和电脑的分辨率一样才能全屏，这样才没有黑边或者白边

追问

不行哦！

追答

源代码发给我 我帮你改改QQ：554137047