利用VB進(jìn)行多媒體程序設(shè)計(jì)初步
2019-11-18 17:50:32
供稿：網(wǎng)友
VB(VisualBasic)具有很強(qiáng)的多媒體處理控制功能，VB的多媒體控制MCI(Mediacontrolinterface)包括一套控制音頻和視頻設(shè)備但具有與設(shè)備無(wú)關(guān)的命令，用它來(lái)進(jìn)行多媒體設(shè)計(jì)是很方便的。比如：你也許想擁有一個(gè)自己編寫的CD播放器，那么利用VB的MCI只需寫幾行代碼就可生成一個(gè)功能比較齊全的CD
播放器。下面簡(jiǎn)單談?wù)動(dòng)肰B的MCI進(jìn)行多媒體設(shè)計(jì)的初步知識(shí)并給出一個(gè)非常簡(jiǎn)單的CD播放器的例子。
在使用MCI之前必須安裝好多媒體設(shè)備如聲卡、CD—ROM等以及這些設(shè)備的驅(qū)動(dòng)程序，否則MCI將不聽(tīng)指揮。
一、MCI控制的安裝
MCI控制在VB不同版本中的安裝方法是不一樣的。在VB3.0專業(yè)版中，MCI控制文件為MCI.VBX，在VB4.0中MCI控制文件為MCI16.OCX(16位)、MCI32.OCX
(32位)。一般情況下MCI控制在啟動(dòng)VB之后并沒(méi)有加入到工具箱中(TOOLBOX)，需要自己動(dòng)手安裝它。
1.VB3.0中MCI的安裝。打開(kāi)VB的FILE菜單，選擇AddFile項(xiàng)，從Windows/system目錄下找到MCI.VBX，選擇OK即可，這時(shí)你將發(fā)現(xiàn)TOOLBOX最后又多了一個(gè)工具，這就是MCI。如果你經(jīng)常要用它，建議在VB目錄下找到Autoload.mak文件，用字處理軟件打開(kāi)它，把MCI.VBX添加在其中，這樣每次啟動(dòng)VB時(shí)就將其自動(dòng)調(diào)入。
2.VB4.0中MCI的安裝。VB4.0支持16位和32位兩種系統(tǒng)，在WINDOWS3.1下只能使用16位系統(tǒng)。MCI不能和VB3.0中一樣用AddFile調(diào)入，如果你這樣做將會(huì)發(fā)現(xiàn)系統(tǒng)提示錯(cuò)誤，需在Autoload.mak文件中調(diào)入。筆者打開(kāi)Autoload.mak文件后發(fā)現(xiàn)調(diào)用格式為：OBJECT={序列號(hào)}＃1.0＃0;文件名，不知道MCI16.OCX的序列號(hào)是無(wú)法安裝的。幸好在VB目錄下的子目錄SAMPLE下有一個(gè)MCI的子目錄，進(jìn)入它可以看到有一個(gè)MCITEST.MAK文件，打開(kāi)它可以看到有：Object={C1A8AF28－1257－101B－8FB0－0020AF039CA3}＃1.0＃0;MCI32.OCX一行（也許您的序列號(hào)不一定和這相同），將這一行復(fù)制到Autoload.mak文件中即可。由于本人使用的是WINDOWS3.1，在安裝VB4.0時(shí)32位系統(tǒng)無(wú)法裝入，硬盤中根本沒(méi)有MCI32.OCX文件，VB何以將MCI32.OCX調(diào)入呢？經(jīng)試驗(yàn)發(fā)現(xiàn)VB以序列號(hào)選擇文件，可能上述序列號(hào)是MCI16.OCX文件的序列號(hào)，進(jìn)一步試驗(yàn)發(fā)現(xiàn)即使將序列號(hào)后面的MCI32.OCX去掉也可調(diào)入，這進(jìn)一步說(shuō)明了VB4.0中一個(gè)OCX文件有一個(gè)對(duì)應(yīng)的序列號(hào)，因此絕對(duì)不能改變序列號(hào)，否則將無(wú)法正確調(diào)入所
需的文件。MCI安裝完畢，用鼠標(biāo)雙擊工具箱的MCI圖標(biāo)，如果在Form中出現(xiàn)9個(gè)熟悉的按扭，那么安裝就成功了。
二、MCI的屬性和事件
MCI提供許多關(guān)于MCI控制方面的屬性和事件。比較常用的屬性有：
Buttonvisible決定該按鈕在MCI控制中是否可見(jiàn)。
Command要執(zhí)行的MCI命令，如OpenClosePlayStopEject等。
DeviceType要打開(kāi)的MCI設(shè)備類型，如動(dòng)畫播放設(shè)備、MIDI序列發(fā)生器、激光視盤機(jī)、WAV文件播放器、錄相機(jī)等。
Filename使用Open命令打開(kāi)或Save命令保存的文件名。
Length確定一個(gè)文件或CD唱片的長(zhǎng)度。
Track指定特定的軌道，供Tracklength和Trackposition使用。
Tracks當(dāng)前MCI設(shè)備的軌道數(shù)。
Tracklength在當(dāng)前時(shí)間格式下，傳回Track所指軌道的時(shí)間長(zhǎng)度。
Trackposition在當(dāng)前時(shí)間格式下，傳回Track所指軌道的起始位置。
Visible決定在運(yùn)行時(shí)刻多媒體MCI控制是否可見(jiàn)。
比較常用的事件有：
Buttonclick當(dāng)用戶在多媒體MCI控制的按鈕上按下或釋放鼠標(biāo)時(shí)產(chǎn)生該事件，
每一個(gè)Buttonclick事件缺省執(zhí)行一個(gè)MCI命令。
Buttoncompleted當(dāng)多媒體MCI控制按鈕激活的MCI命令完成后發(fā)送。
Statusupdate這個(gè)事件可監(jiān)測(cè)目前多媒體設(shè)備的狀態(tài)信息，比如用滾動(dòng)條來(lái)表示當(dāng)前軌道的位置。詳細(xì)的屬性和事件的用法請(qǐng)參看控制幫助文件。
三、CD播放器的例子
對(duì)初學(xué)者來(lái)說(shuō)，能利用入門知識(shí)編寫一個(gè)的成功小程序是很鼓舞人心的，下面我們來(lái)編寫一個(gè)非常簡(jiǎn)單的例子：迷你CD播放器。在MCI調(diào)入Toolbox之后，雙擊MCI工具，將會(huì)在Form中出現(xiàn)9個(gè)按鈕，用鼠標(biāo)移動(dòng)這些按鈕至合適的位置，然后雙擊Form窗體，把下面的代碼加入到事件中：
SubForm_Load()
MMControl1.DeviceType=“CDaudio"'MCI設(shè)備類型為CD唱片
MMControl1.Command=“open"'打開(kāi)設(shè)備
EndSub
SubForm_Unload(CancelAsInteger)
MMControl1.Command=“close"'退出時(shí)關(guān)閉MCI設(shè)備
EndSub
保存文件，在CD驅(qū)動(dòng)器中放入一張CD唱片，然后運(yùn)行，你將發(fā)現(xiàn)九個(gè)按鈕中Prev、Next、Play、Eject四個(gè)按鈕變黑（有效狀態(tài)），點(diǎn)一下Play按鈕，音樂(lè)出來(lái)了！若驅(qū)動(dòng)器中無(wú)CD盤則所有按鈕都處于無(wú)效狀態(tài)。這樣一個(gè)簡(jiǎn)易CD播放器就完成了，它具有四種功能，但自己動(dòng)手寫的代碼只有上面加注釋的三行。這個(gè)CD播放器有點(diǎn)太簡(jiǎn)單了，下面就看你的了，你可以加入一些文字信息如開(kāi)發(fā)時(shí)間、作者、版權(quán)等，再進(jìn)一步學(xué)習(xí)MCI可加入其他功能如顯示播放時(shí)間、曲目等。->
