如何在VB窗体中加入flash

有第3方控件shcokwaveflash

（一）

在VB中播放Flash动画

怎样才能在VB中加入Flash动画呢？我们只要使用Flash5自带的Shockwave

Flash.ocx这个控件就可以了。方法如下：

1．

打开VB6.0，新建一个工程，在工具箱上单击右键，选择Components…，在部件窗口的控件列表中选择Shockwave

flash，然后确定，Flash控件就被加到工具箱上。

2.选择工具箱上的Flash控件，放到窗体上并调整好大小；

3．在Form_Load()过程中加入如下代码：

Private

Sub

Form_Load()

ShockwaveFlash1.Movie

=

“D:\test.swf”

'这里写上你的Flash文件目录

ShockwaveFlash1.Menu

=

False

ShockwaveFlash1.Playing

=

True

End

Sub

其中，ShockwaveFlash1.Movie是用来指定你要播放的Flash动画的目录；ShockwaveFlash1.Menu是用来指定是否在Flash动画播放中封闭右键菜单，True为能够显示菜单，False为封闭右键菜单；ShockwaveFlash1.Playing

=

True是让动画播放。

好了，按F5看看吧，是不是程序中的Flash动画能播放了？

：）

（二）

在Flash中控制VB程序实现交互

现在Flash动画已经能在VB程序中播放了，那么怎么实现在Flash中控制VB的程序从而实现交互式的 *** 作呢？本文的重点也在于此。

首先我们先来了解Flash中控制VB程序的基本原理：在Flash的ActionScript里面有个叫做FSCommand（）的函数，它的主要功能就是发送FScommand命令，例如使动画全屏播放，隐藏动画菜单，更重要的就是可以与外部文件和程序进行通信。而在VB程序中，我们就是利用的Shockwave

flash控件的FSCommand（）过程来完成这一通信过程，实现信息发送的功能，并且根据发送出来的不同的命令及参数来实现对VB程序的控制。

明白了吧？简单的说，我们就是利用Flash中的FSCommand()函数向VB发送命令，利用Shockwave

Flash控件来接受这个命令，从而达到Flash控制VB程序的目的。

好了，现在知道了原理，我们就一步一步来实现吧！

1．

首先要打开Flash5制作一个交互按钮，并在按钮上面加上如下代码：

on

(release)

{

fscommand

("Send

Action")

//发送Send

Action这个命令

}

这个命令的作用是当按下按钮后Flash向VB发送出名为”Send

Action”的命令。当然，这个命令的名字在实际应用中可以叫做其他的任何名字。

2．

将Flash导出成为swf文件，如文章第一部分所述插入到VB6.0中，下面就是VB怎么接受这个命令的事情了；

3．

在窗体上双击Shockwave

Flash控件，进入代码编辑窗口，加入如下语句

其中，ShockwaveFlash1_FSCommand这个过程是专门用来接收Flash发送的FSCommand命令的，其中第一个参数command就是与Flash发送过来的命令相对应的，当其一致的时候，则执行后面的程序（本例中是d出MsgBox）。好了，看看程序运行的结果吧：

Private

Sub

ShockwaveFlash1_FSCommand(ByVal

command

As

String,

ByVal

args

As

String)

If

command

=

"Send

Action"

Then

msg

=

MsgBox("Flash与VB成功结合了！",

vbApplicationModal,

"成功了！")

'当接到Send

Action命令的时候

'这里加入你需要的程序

End

If

End

Sub

Set tmpCtl = Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")

此句替换为

Set tmpCtl = Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash",Frame1) 即可，最后一项为创建容器，不填写则默认为窗体。

播放音乐可以在 部件->控件 中选中Windows Media Player,然后在其属性栏中的URL中加入要播放的音乐的地址即可

播放Flash可以在 部件->控件中 选中shockwave flash控件,然后在代码中用shockwaveflash1.movie=xxx\xxx\xxx.swf加入要播放的Flash文件

添加Gif可以有以下几种方法

(1)利用第三方控件,如Gif89.但好用的一般要注册收钱.

(2)利用WebBrowser控件 在 部件->控件中 选中Microsoft Internet Controls 然后在代码中用WebBrowser1.Navigate xxx\xxx\xxx.gif加入要播放的Gif

(3)将Gif转换为Swf再用Flash播放器播放

这里先说这几种,其他的方法相信在你的学习应用中会发现的.

---