Flash控制VB.NET程序实例

Flash控制VB.NET程序实例内容简介：VB.NET经过长时间的发展，很多用户都很了解Flash控制VB.NET程序了，这里我发表一下个人理解，和大家讨论讨论。现在Flash动画已经能在VB.NET程序中播放了，那么怎么实现在Flash中控制VB的程序从而实现交互式的操作呢？本文的

VB.NET经过长时间的发展，很多用户都很了解Flash控制VB.NET程序了，这里我发表一下个人理解，和大家讨论讨论。现在Flash动画已经能在VB.NET程序中播放了，那么怎么实现在Flash中控制VB的程序从而实现交互式的操作呢？本文的重点也在于此。

首先我们先来了解Flash控制VB程序的基本原理：在Flash的ActionScript里面有个叫做FSCommand（）的函数，它的主要功能就是发送FScommand命令，例如使动画全屏播放，隐藏动画菜单，更重要的就是可以与外部文件和程序进行通信。而在VB程序中，我们就是利用的 Shockwave flash控件的FSCommand（）过程来完成这一通信过程，实现信息发送的功能，并且根据发送出来的不同的命令及参数来实现对VB.NET程序的控制。

明白了吧？简单的说，我们就是利用Flash中的FSCommand()函数向VB发送命令，利用Shockwave Flash控件来接受这个命令，从而达到Flash控制VB.NET程序的目的。

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

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

on (release) {  
fscommand ("Send Action");  
//发送Send Action这个命令  
} 

这个命令的作用是当按下按钮后Flash向VB发送出名为”Send Action”的命令。当然，这个命令的名字在实际应用中可以叫做其他的任何名字。

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

3．  在窗体上双击Shockwave Flash控件，进入ShockwaveFlash1_FSCommand事件中，在此事件中加入：

If e.command = "Send Action" Then  
MsgBox("Flash与VB.net成功结合了！", vbApplicationModal, "成功了！")  
'当接到Send Action命令的时候  
'这里加入你需要的程序  
End If