VisualBasic設(shè)計(jì)多媒體應(yīng)用程序

2019-11-18 17:47:35

字體：大中小

供稿：網(wǎng)友

一、前言
　　隨著多媒體硬件環(huán)境和軟件環(huán)境的不斷完善，目前，大部分計(jì)算機(jī)軟件開發(fā)中都涉及多媒體軟件技術(shù)的應(yīng)用。
　　進(jìn)行多媒體應(yīng)用程序設(shè)計(jì)，從原理上說，可以采用從C 到多媒體專用開發(fā)系統(tǒng)（如TOOLBOOK、AUTHORWARE、DIRECTOR）等多種層次的工具。然而，由于多媒體軟件涉及的媒體復(fù)雜多樣、開發(fā)周期短并且需要多種專業(yè)人員參與，因此，為了能進(jìn)行實(shí)用高效的開發(fā)，必須選用簡單易用、開發(fā)效率高的軟件。
　　VisualBasic是Microsoft公司開發(fā)的Windows編程工具軟件。由于它具有先進(jìn)的設(shè)計(jì)思想、快速易掌握的使用方法及控制媒體對象手段靈活多樣等特點(diǎn)，受到了多媒體軟件開發(fā)人員的關(guān)注和青睞，也因此成為多媒體應(yīng)用程序開發(fā)的理想工具。

二、VisualBasic的多媒體控件MCI.OCX

　　MCI（媒體控制接口）是Microsoft公司為實(shí)現(xiàn)Windows系統(tǒng)下設(shè)備無關(guān)性而提供的媒體控制接口標(biāo)準(zhǔn)。用戶可以方便地使用MCI控制標(biāo)準(zhǔn)的多媒體設(shè)備。

　　MCI包含在Windows多媒體擴(kuò)展的MMSYSTEM模塊中，用來協(xié)調(diào)事件間以及MCI設(shè)備驅(qū)動(dòng)程序間的通訊，提供了與設(shè)備無關(guān)的接口屬性。通常應(yīng)用程序是通過指定一個(gè)MCI設(shè)備類型來區(qū)分MCI設(shè)備，設(shè)備類型指明了當(dāng)前實(shí)際使用設(shè)備的物理類型，不同的設(shè)備類型使用不同的控件屬性來進(jìn)行描述(見附表1)。

　　從使用的控制方式上來說，MCI設(shè)備分為復(fù)合和簡單兩類。一個(gè)簡單MCI設(shè)備并不需要設(shè)備元素。例如，CD音頻和音碟機(jī)就是在一個(gè)已經(jīng)安裝好了的硬盤上工作的，它們不需要應(yīng)用程序?yàn)槠洳僮鞯拿襟w內(nèi)容提供任何信息。但對于復(fù)合的MCI設(shè)備，就需要應(yīng)用程序提供設(shè)備元素，即一個(gè)包含全部路徑名的源數(shù)據(jù)文件或目的文件。

　　VisualBasic語言的CustomControl（用戶控制部件）概念體現(xiàn)了當(dāng)今軟件設(shè)計(jì)的發(fā)展潮流--面向?qū)ο蠹夹g(shù)，編程者可以在VisualBasic的工具箱（Toolbox）中嵌入各式各樣五花八門的用戶控件，每個(gè)用戶控制部件都有一定的屬性和操作方法，編程者通過屬性的設(shè)置和方法的控制完成特定的功能。為了方便地控制多媒體，在專業(yè)版VisualBasic工具箱中提供了一個(gè)用于多媒體目的的用戶控件--MCI.OCX。

　　多媒體MCI控件MCI.OCX專用于對多媒體控制接口MCI設(shè)備的多媒體數(shù)據(jù)文件實(shí)施記錄和回放，從目的效果上來說，該控件通過一組按鈕來發(fā)出種種設(shè)備控制命令以實(shí)現(xiàn)對諸如:音頻面板、MIDI音序器、CD-ROM驅(qū)動(dòng)器、音頻CD播放機(jī)、錄像帶播放、錄音帶錄放等設(shè)備的控制。在VisualBasic程序設(shè)計(jì)時(shí)，當(dāng)在表中加入多媒體MCI控件時(shí)（在工具箱內(nèi)雙擊MCI控件），則出現(xiàn)下列按鈕群：向前（PRev）、向后（Next）、播放（Play）、暫停（Pause）、返回（Back）、單步（Step）、停止（Stop）、記錄（Record）和出帶（Eject）。

　　應(yīng)用程序?qū)CI的這組按鈕操作非常靈活方便，如當(dāng)我們打開一個(gè)MCI設(shè)備后，就可以根據(jù)該設(shè)備類型的屬性隨時(shí)從控件中選擇合適的狀態(tài)按鈕來表示即刻設(shè)備的物理狀態(tài)。所有MCI控件可以有下列幾種方式來編程：⑴控件及其各按鈕的可見性和使能性；⑵可變或完全對控件進(jìn)行重新定義；⑶在一個(gè)窗口表格中可以同時(shí)控制多個(gè)設(shè)備。

三、多媒體控制部件MCI.OCX的調(diào)用
　　在VisualBasic3.0專業(yè)版中，多媒體控件MCI.OCX（在VisualBasic3.0和4.0中，多媒體控件的擴(kuò)展名為.VBX）是作為可選用部件提供的。為了使用它，首先要執(zhí)行FileAddFile菜單命令，把Windowssystem目錄下的MCI.OCX加入到工具箱（Toolbox）中，這時(shí)會在工具箱中出現(xiàn)相應(yīng)的MCI.OCX圖標(biāo)。如果使用的是VisualBasic4.0版（或5.0版），選擇oolsCustomControls菜單或直接鍵入Ctrl T，即可出現(xiàn)對話框，在AvailableControls列表框中選中MicrosoftMultimediaControls條目旁邊的檢查框，同樣會在工具箱中出現(xiàn)MCI.OCX圖標(biāo)。
　　雙擊工具箱中的多媒體控件MCI.OCX圖標(biāo)，調(diào)用MCI.OCX控件之后，表單FORM中將出現(xiàn)一排灰色的媒體控制按鈕（九個(gè)）。

四、VisualBasic多媒體應(yīng)用程序設(shè)計(jì)步驟
　　多媒體控件MCI.OCX包含有一組高級的與設(shè)備無關(guān)的控制命令。在使用該多媒體控件時(shí)，首先用OPEN命令打開MCI設(shè)備（多媒體設(shè)備）并建立一個(gè)與之對應(yīng)的文件,以便來進(jìn)行錄或放等操作（但是對諸如CDAudio、VCR和錄像帶不能使用相應(yīng)文件）。一旦設(shè)備打開成功，就可以向它發(fā)出各種操作命令（見附表的按鈕命令）來完成指定的工作任務(wù)。最后記住，要用Close命令來關(guān)閉設(shè)備和數(shù)據(jù)文件。
　　使用MCI.OCX來進(jìn)行多媒體應(yīng)用程序開發(fā)是很方便的，因?yàn)榇蠖鄶?shù)屬性都是容易理解的，其中Command屬性尤為重要，它是在運(yùn)行過程中向多媒體設(shè)備發(fā)命令。格式為:
　　Form.Mmcontrol.Command＝cmdstring$
　　其中，cmdstring$變量是如下可執(zhí)行命令名:Open、Close、Play、Pause、Stop、Back、Step、Prev、Next、Seek、Record、Eject、Sound和Save。一旦給其命令設(shè)置，它就立刻執(zhí)行，所發(fā)生的錯(cuò)誤存在Error屬性中。
　　下面以播放DEMO.WAV（波形文件）文件為例，說明VisualBasic多媒體應(yīng)用程序設(shè)計(jì)步驟。
　　首先，創(chuàng)建一個(gè)包含有多媒體控件（MCI.OCX）的表格（Form），于是屏幕上顯示出形狀類似錄音機(jī)的控制鍵，不過這時(shí)多媒體控制部件是不能馬上拿來用的（各鍵呈灰色），須通過程序代碼來改變鍵的狀態(tài)。
　　其次，在Form_Load過程中，插入相應(yīng)程序代碼。如下
　　SubForm_Load()
　　‘在發(fā)出OPEN命令前要設(shè)置多媒體設(shè)備的屬性
　　Form1.MMControl1.Notify=False
　　Form1.MMControl1.Wait=True
　　Form1.MMControl1.Shareable=False
　　Form1.MMControl1.DeviceType="WaveAudio"
　　Form1.MMControl1.FileName="c:windowss
　　Mmdatademo.wav"
　　Form1.MMControl1.Command="Open"
　　EndSub

　　最后，運(yùn)行上述程序，控制鍵呈黑色，這時(shí)就可以使用Play、Record等鍵操作數(shù)據(jù)文件DEMO.WAV了。例如用鼠標(biāo)點(diǎn)按Play鍵就能聽到.WAV音效（計(jì)算機(jī)應(yīng)裝有發(fā)音設(shè)備）。
　　通過上面陳述，不難發(fā)現(xiàn)，VisualBasic利用多媒體控件MCI.OCX設(shè)貧嗝教逵τ貿(mào)?序很容易掌握。

五、VisualBasic多媒體應(yīng)用程序設(shè)計(jì)實(shí)例
　　1、播放CD音樂
　　在很多多媒體軟件系統(tǒng)中，都提供了激光唱盤的播放軟件，利用多媒體控件MCI.OCX，我們可以輕松地編制出符合自己使用要求的簡易激光唱盤播放機(jī)。
　　表1給出了簡易CD播放器的主要控制部件定義，其后是對應(yīng)于各個(gè)觸發(fā)事件的源程序代碼。
完整的源程序清單如下:
　　`CD播放機(jī)實(shí)用程序
　　`運(yùn)行程序前請?jiān)贑D-ROM驅(qū)動(dòng)器中裝入一張激光唱碟'“LOAD”按鈕觸發(fā)事件
　　PrivateSubCommand1_Click()
　　`裝入CD唱片
　　OnErrorGoToMCI_ERROR
　　MMControl1.Command="Open"
　　OnErrorGoTo0
　　`設(shè)置時(shí)間格式
　　MMControl1.TimeFormat=vbMCIFormatTmsf
　　`關(guān)閉LOAD按鈕，顯示圖片
　　Command1.Enabled=False
　　Picture1.Picture=Picture3.Picture
　　`設(shè)置初始軌道數(shù)
　　Label1.Caption="1"
　　ExitSub
　　MCI_ERROR:
　　DisplayErrorMessageBox
　　ResumeMCI_EXIT
　　MCI_EXIT:
　　UnloadCD
　　EndSub

　　PrivateSubForm_Load()
　　MMControl1.Wait=True
　　MMControl1.UpdateInterval=0
　　`設(shè)置設(shè)備類型
　　MMControl1.DeviceType="CDAudio"
　　`設(shè)置缺省軌道數(shù)為0
　　Label1.Caption="0"
　ndSub

　　PrivateSubForm_Unload(CancelAsInteger)
　　MCITest.Show
　　EndSub

　　'“出帶”按鈕觸發(fā)事件
　　PrivateSubMMControl1_EjectClick(CancelAsInteger)
　　Command1.Enabled=True
　　Picture1.Picture=Picture2.Picture
　　MMControl1.UpdateInterval=0
　　OnErrorGoToMCI_ERROR2
　　MMControl1.Command="Eject"
　　MMControl1.Command="Close"
　　OnErrorGoTo0
　　Label1.Caption="0"
　　Label3.BackColor=&H404040
　　ExitSub
　　MCI_ERROR2:
　　DisplayErrorMessageBox
　　ResumeNext
　　EndSub

　　'“向前”按鈕觸發(fā)事件
　　PrivateSubMMControl1_NextCompleted(ErrorCodeAsLong)
　　Label1.Caption=Str$(MMControl1.Track)
　　EndSub

　　'“暫停”按鈕觸發(fā)事件
　　PrivateSubMMControl1_PauseClick(CancelAsInteger)
　　MMControl1.UpdateInterval=0
　　Label3.BackColor=&H404040
　　EndSub

　　'“播放”按鈕觸發(fā)事件
　　PrivateSubMMControl1_PlayClick(CancelAsInteger)
　　MMControl1.UpdateInterval=1000
　　Label1.Caption=Str$(MMControl1.Track)
　　EndSub

　　'“向后”按鈕觸發(fā)事件
　　PrivateSubMMControl1_PrevCompleted(ErrorCodeAsLong)
　　Label1.Caption=Str$(MMControl1.Track)
　　EndSub

　　PrivateSubMMControl1_StatusUpdate()
　　Label1.Caption=Str$(MMControl1.PositionAnd&HFF)
　　IfMMControl1.Mode=vbMCIModePlayThen
　　Label3.BackColor=&H80FF&
　　Else
　　Label3.BackColor=&H404040
　　EndIf
　　EndSub

　　'“停止”按鈕觸發(fā)事件
　　PrivateSubMMControl1_StopClick(CancelAsInteger)
　　MMControl1.UpdateInterval=0
　　Label3.BackColor=&H404040
　　MMControl1.To=MMControl1.Start
　　MMControl1.Command="Seek"
　　MMControl1.Track=1
　　Label1.Caption="1"
　　EndSub

　　2、播放AVI（音頻視頻接口）文件
　　電影（包括聲音和圖像）是廣大計(jì)算機(jī)工作者最為關(guān)心的媒體信息之一，電影處理技術(shù)也是多媒體關(guān)鍵技術(shù)之一。而在多媒體系統(tǒng)中，AVI（AudioVideoInterface，音頻視頻接口）文件是存儲電影（包括聲音和圖像）的標(biāo)準(zhǔn)格式，這些AVI文件一般是通過捕獲實(shí)時(shí)視頻信號得來的，也可以通過掃描儀獲取圖像或者使用動(dòng)畫制作軟件得到。于是，屏幕窗口上的音頻視頻操作，就變成了對AVI文件（文件后綴為AVI）的處理。在實(shí)際工作中，播放AVI文件（即影片）的方法有許多種，而其中以利用VisualBasic的多媒體控件方法最為簡單、方便。下面以一個(gè)具體實(shí)例來說明如何播放AVI文件：假設(shè)用戶當(dāng)前目錄下有名字為DEMO.AVI的視頻音頻文件，則利用VisulBasic播放該影片需要經(jīng)過如下步驟：
　?。?）在VisualBasic的窗體中加入一個(gè)MMControl多媒體控件、一個(gè)PictureBox圖片框控件和兩個(gè)ComandButton命令按鈕部件；
　?。?）設(shè)置各個(gè)控件的屬性，其中窗體命名為Form1，MMControl多媒體控件命名為MMControl1、PictureBox圖片框控件命名為Picture1、兩個(gè)ComandButton命令按鈕控件分別命名為Play和Close；
　?。?）編寫各觸發(fā)事件源程序代碼并且運(yùn)行。源程序代碼為：
　　PrivateSubPlay_Click()
　　MMControl1.Filename="DEMO.AVI"
　　MMControl1.DeviceType=="AVIVIDEO"
　　MMControl1.hWndDisplay=Picture1.hWnd
　　MMControl1.Command="OPEN"
　　MMControl1.To=1
　　MMControl1.Command="SEEK"
　　MMControl1.Command="PLAY"
　　EndSub
　　PrivateSubClose_Click()
　　MMControl1.Command="STOP"
　　MMControl1.Command="CLOSE"
　　EndSub
　　值得注意的是：在播放AVI文件之前，首先應(yīng)該把AVI（音頻視頻）驅(qū)動(dòng)程序安裝在Windows下。AVI的驅(qū)動(dòng)程序名為MCIAVI.DRV，必須將它拷貝到WINDOWSSYSTEM目錄下，同時(shí)在SYSTEM.INI文件的[MCI]部分加上：
　　AVIVIDEO=MCIAVI.DRV
　　這樣，運(yùn)行Windows時(shí)，Windows會自動(dòng)地將AVI的驅(qū)動(dòng)程序安裝好。
　　以上僅描述了利用多媒體控制部件播放音頻文件（.WAV）、CD唱片和音頻視頻文件（.AVI）的操作過程。實(shí)際上利用多媒體控制部件同樣可以播放動(dòng)畫文件（.FLI、.FLC）、MIDI文件等其他媒體信息。

六、結(jié)束語
　　通過前面論述，不難看出：利用VisualBasic提供的多媒體控制部件MCI.OCX，廣大計(jì)算機(jī)用戶可以方便、快捷、高效率地開發(fā)出各種多媒體應(yīng)用程序。但需要強(qiáng)調(diào)的是：開發(fā)設(shè)計(jì)VisualBasic多媒體應(yīng)用程序，除了可以利用多媒體控制部件以外，還可以采用其他手段，例如通過調(diào)用API函數(shù)等等（鑒于篇幅，這里未做討論）?？梢?，VisualBasic確實(shí)是專業(yè)與非專業(yè)多媒體軟件開發(fā)人員共同擁有的理想開發(fā)工具。

附表1MCI設(shè)備類型定義
設(shè)備類型　設(shè)備描述
CDAudio　　激光唱盤播放設(shè)備
DAT　　　　數(shù)字化磁帶音頻播放機(jī)
DigitalVideo動(dòng)態(tài)數(shù)字視頻圖像設(shè)備
Animation　動(dòng)畫播放設(shè)備
Other　　　未給出標(biāo)準(zhǔn)定義的MCI設(shè)備
Overlay　　模擬視頻圖像疊加設(shè)備
Sequence　　MIDI音序發(fā)生器
VCR　　　　可以使用程序控制的磁盤錄像機(jī)
VideoDisc　可以使用程序控制的激光視盤機(jī)
WaveAudio　播放數(shù)字化波形音頻的設(shè)備???

附表2多媒體控制部件特有事件列表
事件　　　　　　說明
Done　　　　　　完成MCI命令動(dòng)作（Notify為真）
ButtonClick　　單擊按鈕
ButtonCompleted按鈕執(zhí)行命令完成
ButtonGetFocus　按鈕獲得輸入焦點(diǎn)
ButtonLostFocus按鈕失去輸入焦點(diǎn)
StatusUpdate　　更新媒體控制對象的狀態(tài)信息->

上一篇：VB中多媒體五種控制手段

下一篇：在VB6.0中播放GIF動(dòng)畫