怎样在VB程序中播放Flash动画？

你好！要用到一个播放 Flash 动画的控件 Shockwave Flash。该控件在 Flash4 安装盘的 Plugins 目录下，安装文件是
InstallAXFlashexe，安装后在 VB 部件中选定即可使用。该控件的主要属性和方法如下：
属性：Movie
动画文件
Playing True/False 是否自动播放
Loop True/False
是否循环播放
方法：Play 播放
Stop 停止
Forward 快进

Back 快退
Rewind 回放
GotoFrame(n) 绕到指定的帧播放

SetZoomRect(left,top,right,bottom) 设置放大时的位置

先做一个关闭的按钮：插入一个新元件，类型按钮，绘制好退出按钮。或者从公共库里拖出一个按钮。
场景时间轴添加一个图层，把退出按钮拖到场景，至于放在哪一个关键帧，要看你的需要。
选中按钮，打开动作面板，在“动作—按钮”处输入：
on (release) {fscommand("quit")
}
（注：这是AS2的代码，在Flash软件中测试，按钮看似没有效，发布成swf就有效了。）
AS3代码：
//实例名称为“exit”按钮的响应函数。也就是说要给按钮起实例名“exit” 。
function goexit(e) {
fscommand("quit");
}

前一段时间我也遇到了这个问题。后来解决了。方法如下。
在关闭按钮中放入如下命令
on(release)
{
fscommand("quit",true)
}
但是单个FLASH可以关闭，放在网页层中却失效了。
解决方法为
可以通过视觉欺骗模拟
这个flash必须是以透明背景方式插入网页中的（wmode参数为transparent）
然后让flash跳到一个没有任何东西的帧上，就‘关闭’了
on
(release)
{
gotoAndPlay(300);
}
在第300帧（300帧为空帧）写STOP语句
注意，别忘了在循环帧里写处gotoandplay(1)

用VB播放FLASH动画 Flash是一种矢量格式的动画文件， 可以包含动画，声音，超文本链接，而文件的体积却很小。在网页上使用Flash可以作出很漂亮的全屏动画和动态菜单条。 你想在VB程序里作出类似的效果吗在VB中使用Flash4自带的Swflashocx控件就可以了。方法如下： 首先，打开VB5，新建一个工程， 在工具箱上单击右键，选择部件，在部件窗口的控件列表中选择Shockwave flash，然后确定，Flash控件就被加到工具箱上。 然后将Flash控件放到窗体上，并调整至适当的大小，然后在属性窗口里设置movie属性为Flash动画文件的路径(如:c:\demoswf)，设置scale model属性为2，quality 属性为 1。(参见附表) 双击窗体，在form_load( )过程里加入： shockwaveflash1playing=true 按F5就可以看到播放的Flash动画了。(注意:编译以后的可执行文件不包含动画文件)如果动画里加上动态按钮，配合鼠标位置判断，就可以作成动态工具条或动态菜单了。

1、首先，在打开的VB编程软件中，写上一个程序框架。

2、然后就可以在这里输入各种语句，根据自己需要可以多输几句。

3、然后找到自己输入的两个语句块的中间部分。

4、接着在中间的部分中，输入语句 Exit sub。

5、最后输入完成后，就可以点击页面上方的运行选项按钮，去运行测试了。

---