FLASH現(xiàn)在是個(gè)熱門的行業(yè)，其實(shí)我也很想學(xué)，因?yàn)樵S多原因還是入了編程這個(gè)行業(yè)，但是我們可以把兩者合起來使用，我們?cè)鯓硬拍茉赩B.NET中加入Flash動(dòng)畫呢？我們只要使用Flash5自帶的ShockwaveFlash.ocx這個(gè)控件就可以了。方法如下：

#T#1．打開VB.NET，新建一個(gè)工程，在工具箱上單擊右鍵，選擇"添加…"，在com窗口的控件列表中選擇Shockwaveflash，然后確定，F(xiàn)lash控件就被加到工具箱上。

2.選擇工具箱上的Flash控件，放到窗體上并調(diào)整好大小；

3．在Form_Load()過程中加入如下代碼：

ShockwaveFlash1.Movie=“D:\test.swf”'這里一定要寫絕對(duì)地址，其實(shí)只要把FLASH文件放到你程序的bin目錄里，生成后自然變成相對(duì)路徑  
'這里寫上你的Flash文件目錄  
ShockwaveFlash1.Menu=False 
ShockwaveFlash1.Playing=True 

其中，ShockwaveFlash1.Movie是用來指定你要播放的Flash動(dòng)畫的目錄；ShockwaveFlash1.Menu是用來指定是否在Flash動(dòng)畫播放中封閉右鍵菜單，True為能夠顯示菜單，F(xiàn)alse為封閉右鍵菜單；ShockwaveFlash1.Playing=True是讓動(dòng)畫播放。

在VB.NET Flash控制程序?qū)崿F(xiàn)交互

現(xiàn)在Flash動(dòng)畫已經(jīng)能在VB.NET程序中播放了，那么怎么實(shí)現(xiàn)在Flash中控制VB的程序從而實(shí)現(xiàn)交互式的操作呢？本文的重點(diǎn)也在于此。

首先我們先來了解Flash中控制VB程序的基本原理：在Flash的ActionScript里面有個(gè)叫做FSCommand（）的函數(shù)，它的主要功能就是發(fā)送FScommand命令，例如使動(dòng)畫全屏播放，隱藏動(dòng)畫菜單，更重要的就是可以與外部文件和程序進(jìn)行通信。而在VB程序中，我們就是利用的Shockwaveflash控件的FSCommand（）過程來完成這一通信過程，實(shí)現(xiàn)信息發(fā)送的功能，并且根據(jù)發(fā)送出來的不同的命令及參數(shù)來實(shí)現(xiàn)對(duì)VB.NET程序的控制。明白了吧？簡(jiǎn)單的說，我們就是利用Flash中的FSCommand()函數(shù)向VB發(fā)送命令，利用ShockwaveFlash控件來接受這個(gè)命令，從而達(dá)到VB.NET Flash控制程序的目的。

好了，現(xiàn)在知道了原理，我們就一步一步來實(shí)現(xiàn)VB.NET FLASH結(jié)合吧！

1．首先要打開Flash制作一個(gè)交互按鈕，并在按鈕上面加上如下代碼：

on(release){  
fscommand("SendAction");  
//發(fā)送SendAction這個(gè)命令  
} 

這個(gè)命令的作用是當(dāng)按下按鈕后Flash向VB發(fā)送出名為”SendAction”的命令。當(dāng)然，這個(gè)命令的名字在實(shí)際應(yīng)用中可以叫做其他的任何名字。

2．將Flash導(dǎo)出成為swf文件，如文章第一部分所述插入到VB.NET中，下面就是VB.NET怎么接受這個(gè)命令的事情了；
3．在窗體上雙擊ShockwaveFlash控件，進(jìn)入ShockwaveFlash1_FSCommand事件中，在此事件中加入：

Ife.command="SendAction"Then 
MsgBox("Flash與VB.NET成功結(jié)合了！",vbApplicationModal,"成功了！")  
'當(dāng)接到SendAction命令的時(shí)候  
'這里加入你需要的程序  
EndIf 

其中，ShockwaveFlash1_FSCommand這個(gè)過程是專門用來接收Flash發(fā)送的FSCommand命令的，其中第一個(gè)參數(shù)command就是與Flash發(fā)送過來的命令相對(duì)應(yīng)的，當(dāng)其一致的時(shí)候，則執(zhí)行后面的程序（本例中是彈出MsgBox）。