經驗之談VB.NET FLASH完美結合
FLASH現在是個熱門的行業,其實我也很想學,因為許多原因還是入了編程這個行業,但是我們可以把兩者合起來使用,我們怎樣才能在VB.NET中加入Flash動畫呢?我們只要使用Flash5自帶的ShockwaveFlash.ocx這個控件就可以了。方法如下:
#T#1.打開VB.NET,新建一個工程,在工具箱上單擊右鍵,選擇"添加…",在com窗口的控件列表中選擇Shockwaveflash,然后確定,Flash控件就被加到工具箱上。
2.選擇工具箱上的Flash控件,放到窗體上并調整好大小;
3.在Form_Load()過程中加入如下代碼:
- ShockwaveFlash1.Movie=“D:\test.swf”'這里一定要寫絕對地址,其實只要把FLASH文件放到你程序的bin目錄里,生成后自然變成相對路徑
- '這里寫上你的Flash文件目錄
- ShockwaveFlash1.Menu=False
- ShockwaveFlash1.Playing=True
其中,ShockwaveFlash1.Movie是用來指定你要播放的Flash動畫的目錄;ShockwaveFlash1.Menu是用來指定是否在Flash動畫播放中封閉右鍵菜單,True為能夠顯示菜單,False為封閉右鍵菜單;ShockwaveFlash1.Playing=True是讓動畫播放。
在VB.NET Flash控制程序實現交互
現在Flash動畫已經能在VB.NET程序中播放了,那么怎么實現在Flash中控制VB的程序從而實現交互式的操作呢?本文的重點也在于此。
首先我們先來了解Flash中控制VB程序的基本原理:在Flash的ActionScript里面有個叫做FSCommand()的函數,它的主要功能就是發送FScommand命令,例如使動畫全屏播放,隱藏動畫菜單,更重要的就是可以與外部文件和程序進行通信。而在VB程序中,我們就是利用的Shockwaveflash控件的FSCommand()過程來完成這一通信過程,實現信息發送的功能,并且根據發送出來的不同的命令及參數來實現對VB.NET程序的控制。明白了吧?簡單的說,我們就是利用Flash中的FSCommand()函數向VB發送命令,利用ShockwaveFlash控件來接受這個命令,從而達到VB.NET Flash控制程序的目的。
好了,現在知道了原理,我們就一步一步來實現VB.NET FLASH結合吧!
1.首先要打開Flash制作一個交互按鈕,并在按鈕上面加上如下代碼:
- on(release){
- fscommand("SendAction");
- //發送SendAction這個命令
- }
這個命令的作用是當按下按鈕后Flash向VB發送出名為”SendAction”的命令。當然,這個命令的名字在實際應用中可以叫做其他的任何名字。
2.將Flash導出成為swf文件,如文章第一部分所述插入到VB.NET中,下面就是VB.NET怎么接受這個命令的事情了;
3.在窗體上雙擊ShockwaveFlash控件,進入ShockwaveFlash1_FSCommand事件中,在此事件中加入:
- Ife.command="SendAction"Then
- MsgBox("Flash與VB.NET成功結合了!",vbApplicationModal,"成功了!")
- '當接到SendAction命令的時候
- '這里加入你需要的程序
- EndIf
其中,ShockwaveFlash1_FSCommand這個過程是專門用來接收Flash發送的FSCommand命令的,其中第一個參數command就是與Flash發送過來的命令相對應的,當其一致的時候,則執行后面的程序(本例中是彈出MsgBox)。