本文共 1194 字，大约阅读时间需要 3 分钟。
嘿，想有一个绚丽的软件界面么？
首先我们先来了解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控件，进入代码编辑窗口，加入如下语句
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
其中，ShockwaveFlash1_FSCommand这个过程是专门用来接收Flash发送的FSCommand命令的，其中第一个参数command就是与Flash发送过来的命令相对应的，当其一致的时候，则执行后面的程序（本例中是弹出MsgBox）。
蓝色字部分为操作要点，希望对大家的作品美化可以有所帮助，如有不当之处望指正。也希望和兄弟姐妹们可以在博客上多多交流。
转载地址：http://efmei.baihongyu.com/