欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

在軟件開(kāi)發(fā)的過(guò)程中，為了提高軟件的商品化程度，許多開(kāi)發(fā)人員都在努力使自己開(kāi)發(fā)的程序界面更加的美觀(guān)，但除了簡(jiǎn)單的使用圖片和底紋，還有沒(méi)有更好的方法呢？Flash是一種矢量格式的動(dòng)畫(huà)文件， 可以包含動(dòng)畫(huà)，聲音，超文本鏈接，而文件的體積卻很小,在網(wǎng)頁(yè)上使用Flash可以做出很漂亮動(dòng)態(tài)菜單條。那么Flash可不可以加入到應用程序中而起到美化程序的作用呢？經(jīng)過(guò)一番研究，Flash不僅僅可以插入到程序中起到美化的作用，而且可以通過(guò)FSCommand命令與VB應用程序進(jìn)行交互！也就是說(shuō)你的應用程序的按鈕再也不會(huì )是灰灰的那樣的死板，而是頗具魅力的動(dòng)畫(huà)了！怎么樣，動(dòng)心了吧？那好，隨我來(lái)一起讓VB和Flash聯(lián)合起來(lái)，打造我們的魅力程序！

（一） 在VB中播放Flash動(dòng)畫(huà)

怎樣才能在VB中加入Flash動(dòng)畫(huà)呢？我們只要使用Flash5自帶的Shockwave Flash.ocx這個(gè)控件就可以了。方法如下：

1． 打開(kāi)VB6.0，新建一個(gè)工程，在工具箱上單擊右鍵，選擇Components…，在部件窗口的控件列表中選擇Shockwave flash，然后確定，Flash控件就被加到工具箱上。

2.選擇工具箱上的Flash控件，放到窗體上并調整好大??；

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

Private Sub Form_Load()

ShockwaveFlash1.Movie = “D:\test.swf”

'這里寫(xiě)上你的Flash文件目錄

ShockwaveFlash1.Menu = False

ShockwaveFlash1.Playing = True

End Sub

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

好了，按F5看看吧，是不是程序中的Flash動(dòng)畫(huà)能播放了？ ：）

（二） 在Flash中控制VB程序實(shí)現交互

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

首先我們先來(lái)了解Flash中控制VB程序的基本原理：在Flash的ActionScript里面有個(gè)叫做FSCommand（）的函數，它的主要功能就是發(fā)送FScommand命令，例如使動(dòng)畫(huà)全屏播放，隱藏動(dòng)畫(huà)菜單，更重要的就是可以與外部文件和程序進(jìn)行通信。而在VB程序中，我們就是利用的Shockwave flash控件的FSCommand（）過(guò)程來(lái)完成這一通信過(guò)程，實(shí)現信息發(fā)送的功能，并且根據發(fā)送出來(lái)的不同的命令及參數來(lái)實(shí)現對VB程序的控制。

明白了吧？簡(jiǎn)單的說(shuō)，我們就是利用Flash中的FSCommand()函數向VB發(fā)送命令，利用Shockwave Flash控件來(lái)接受這個(gè)命令，從而達到Flash控制VB程序的目的。

好了，現在知道了原理，我們就一步一步來(lái)實(shí)現吧！

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

on (release) {

fscommand ("Send Action");

//發(fā)送Send Action這個(gè)命令

}

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

2． 將Flash導出成為swf文件，如文章第一部分所述插入到VB6.0中，下面就是VB怎么接受這個(gè)命令的事情了；

3． 在窗體上雙擊Shockwave Flash控件，進(jìn)入代碼編輯窗口，加入如下語(yǔ)句

其中，ShockwaveFlash1_FSCommand這個(gè)過(guò)程是專(zhuān)門(mén)用來(lái)接收Flash發(fā)送的FSCommand命令的，其中第一個(gè)參數command就是與Flash發(fā)送過(guò)來(lái)的命令相對應的，當其一致的時(shí)候，則執行后面的程序（本例中是彈出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命令的時(shí)候

'這里加入你需要的程序

End If

End Sub

Yeah!成功了?。海?/p>

怎么樣，通過(guò)本文你是不是完全掌握了Flash與VB的結合？這里，你只要把Then后面要執行的語(yǔ)句段變?yōu)槟阕约合胍獙?shí)現的程序，那么Flash中的動(dòng)畫(huà)按鈕就能實(shí)現所有強大的VB功