vb里面无法保存flash动画

1.很多人在vb里导入flash动画的时候都会遇到这样一个问题：在vb里面加入flash动画（通过一个shockwave flash控件）的过程中，保存的时候没法保存，或者必须把这个flash控件删除之后才能保存，我搜了一下，很多说是版本问题，有的说要下一个低版本的ocx什么的（不懂），也没试，行不行我也不知道；还有的说flash版本太高，要下个8.0的，我的就是8.0的，好像也不怎么行啊。最后我发现有很多人发的有代码，就是到时候通过程序自动添加flash控件以及动画，我找了一个，把相关数值改了一下，调试过，可行。

Set Myflash = Controls.Add(\

Myflash.Height = 193

Myflash.Width = 421

Myflash.Top = 480

Myflash.Left = 320

Myflash.Visible = True

Myflash.object.Movie = \新建\\E5--爆炸.swf\ 'flash address，写你自己的动画路径

Myflash.object.Menu = True Myflash.object.Playing = True

我是把这段代码粘贴在了一个cmd命令按钮里面，点第一次还行，点第二次的话就会出现一个错误，什么run—time 727,there is already a control with the name “flash”,大概是因为重复执行了上面的添加控件的缘故吧，然后我在代码前面又加了一句On Error Resume Next（有错误忽略的意思），这样的话点击这个按钮的时候没影响，动画播放到哪里还是哪里，相当于没点。就是下面这段：

On Error Resume Next

Set Myflash = Controls.Add(\

Myflash.Height = 193

Myflash.Width = 421

Myflash.Top = 480

Myflash.Left = 320

Myflash.Visible = True

Myflash.object.Movie = \新建\\E5--爆炸.swf\ '动画路径，你可以自己设置 Myflash.object.Menu = True Myflash.object.Playing = True

四个数字分别确定了大小和位置。

其实还有一个更好的方法，就是在vb里面添加webbrowser控件，原名是microsoft internet controls 什么的，有兴趣的可以自己查一下。

本文来源：https://www.bwwdw.com/article/dnh8.html