多媒體播放器的設計

/目錄１vb簡介………………12多媒體播放器的開發(fā)設計…………22。1設計要求…………２2.２設計方案…………22．3基本原理…………３3設計方案的實現(xiàn)……………………54程序代碼……………55運行結(jié)果……………106心得體會……………137參考資料……………1４1ＶB簡介Viｓuaｌ意為可視的、可見的，指的是開發(fā)像Windｏws操作系統(tǒng)的圖形用戶界面（GｒａphicUseｒInｔerfａｃe，GUI）的方法,它與其他編程軟件不同的是不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預先建立好的對象拖放到屏幕上相應的位置即可。應該說,這是一次質(zhì)的飛躍，是一次編程技術的革命。Ｂaｓic實際上是一個短語的縮寫,這個短語就是Begiｎnerｓ'Ａll-PｕrposeSｙmbolicInsｔrｕctiｏnCｏｄe，其中文意思為“初學者通用符號指令代碼”。ViｓuａlBasic6有學習版、專業(yè)版和企業(yè)版三種版本,以滿足不同的開發(fā)需要。學習版適用于普通學習者及大多數(shù)使用ＶiｓuａlBａｓｉc開發(fā)一般Wiｎdoｗs應用程序的人員；專業(yè)版適用于計算機專業(yè)開發(fā)人員，包括了學習版的全部內(nèi)容功能以及Iｎternｅt控件開發(fā)工具之類的高級特性;企業(yè)版除包含專業(yè)版全部的內(nèi)容外,還有自動化構(gòu)件管理器等工具，使得專業(yè)編程人員能夠開發(fā)功能強大的組骨子里分布式應用程序。隨著版本的提高，ViｓuａlBasic的功能也越來越強。自從5。0版，ＶisualＢａsic推出了中文版,與前個版本相比，其功能有了很大提升.但是,功能再強大,ViｓuａlＢasiｃ仍然有一個缺點：在沒有MＳVBＶM＊＊。DLL的計算機上必須安裝所需的DLL文件(同樣VｉsuａlC++在沒有MSVCRT*。DLL情況下亦無法運行）。不過在Ｗiｎｄows2０00之后,這個DLＬ就被預置到操作系統(tǒng)中了，一般來說，程序如果只使用了VB內(nèi)部的控件和對象,基本上不會有太大的問題.在２1世紀初，Micrｏｓoft公司推出VisｕalStudiｏ.NET２０03，它與ＶｉsualBasic之間有了重大變化，ＶｉsualStuｄio為各種編程工具做了一個平臺，Viｓｕa可在這種平臺上運行。相對于傳統(tǒng)VＢ，有很大的不同。ＶB。Neｔ首次使用.Net構(gòu)架進行可視化編程,并且能很好地與ＣOM構(gòu)架兼容,ViｓｕaｌStｕdio．NET20０3應用．NETFrａmework1.1。20０５年VisｕaｌStudiｏ20０5則運用了ＮET2.0的技術，更加的方便了程序員的工作?？墒切碌某绦?qū)ο到y(tǒng)配置要求也較高,需要微軟.NetFramｅwork２.０以上的.Net構(gòu)架支持。2０07年１2月,微軟（Ｍicroｓoｆｔ)推出了VisualＳtudio2０08Beｔａ2發(fā)生了重大的變化（見附圖）在代碼輸入的時候,可以比VB２005快很多,在非特殊的情況下，VＢ2００８都會自動開啟自動完成關鍵字這個命令而且支持最新的．NETＦｒamework3。５SP1Beｔa微軟開發(fā)了一系列有關ＶB的腳本語言:VisuａｌＢasｉｃforAｐplｉcatｉoｎｓ,即VBA，包含在微軟的應用程序中（比如MicｒｏsoｆｔＯffiｃe),以及類似WoｒｄPeｒfｅctOｆfiｃe這樣第三方的產(chǎn)品里面。VBA這樣嵌入在各種應用程序中看起來有些矛盾,但是它的功能和VB一樣強大.VBＳcrｉpt是ＡＳP的默認語言，還可以用在Wｉndowｓ腳本編寫（ShellScript)和網(wǎng)頁編碼（ＨＴMＬ）中.盡管它的語法類似于VＢ,但是它卻是一種完全不同的語言。ＶＢS不使用VB運行庫運行，而是由Windoｗｓ腳本宿主(wsｃript。exｅ—ＭｉcrｏsoftＷinｄowsＢaｓｅdＳcriptHｏsｔ）解釋執(zhí)行。這兩種語言之中的不同點影響ASＰ網(wǎng)站的表現(xiàn)。當微軟準備開發(fā)一種新的編程工具的時候,第一決定就是利用最搶手的VＢ6來進行修改,或者就是重新組建工程開發(fā)新工具。微軟后來開發(fā)了VB的繼任者ViｓuａlBasｉｃ。NET,同時也是。NET平臺的一部分。VB.ＮET編程語言是一種真正的面向?qū)ο缶幊陶Z言（VＢ4—VB６只能稱為基于對象而不是面向?qū)ο螅蠲黠@的特征就是ＶB4—VB6都不支持類的繼承),和傳統(tǒng)VｉsuaｌBａsic并不完全兼容.[2］２多媒體播放器的開發(fā)設計2.１設計要求內(nèi)容：多媒體播放器是根據(jù)計算機用戶使用系統(tǒng)時的實際需求而開發(fā)，完全能夠?qū)崿F(xiàn)用戶對計算機多媒體文件的查詢和播放.要求：根據(jù)多媒體播放器的要求，要求系統(tǒng)具有以下功能：選取多媒體文件；播放多媒體文件;停止播放多媒體文件；打開字幕功能；關閉字幕功能；打開CD驅(qū)動器功能；關閉ＣD驅(qū)動器功能;添加播放列表功能。2．2設計方案WindｏｗsMｅｄiaPlayer控件(ｍsｄxm．ocx)支持的文件類型比較豐富，可以播放WAV、MID、MP3、WMA、AIＦ、ASF、MPEG、MPＧ、AVI、ＭOV、DＡT、ＲMI等多媒體文件。在ＶＢ6．0ＳP5下利用這個控件實現(xiàn)自動連續(xù)循環(huán)播放以及啟動時自動從上次退出時的文件處繼續(xù)播放多媒體文件的技術。多媒體技術的基本工作原理是：多媒體終端通過不同接入層網(wǎng)絡(固定NGN、移動NGN、Iｎternet),接入傳輸層IP分組網(wǎng)絡，在控制層IMS/ＳofｔSwitch等SIPPrｏxy設備的控制下，通過業(yè)務層的邏輯控制實現(xiàn)多媒體業(yè)務及應用。其結(jié)構(gòu)下圖所示:圖1多媒體結(jié)構(gòu)圖ＭＰｌayer是一款開源的多媒體播放器,以GNU通用公共許可證發(fā)布。此款軟件可在各主流作業(yè)系統(tǒng)使用，例如Ｌinux和其他類Ｕniｘ作業(yè)系統(tǒng)、微軟的視窗系統(tǒng)及蘋果電腦的MacＯSＸ系統(tǒng)。MＰl(wèi)ayer是建基于命令行界面，在各作業(yè)系統(tǒng)可選擇安裝不同的圖形界面。MPlayer是Lｉnux上的最強大的電影播放器（也能跑在許多其它Unixｓ上，甚至非x86CPU上）。如今它也有了在微軟視窗操作系統(tǒng)和蘋果MaｃOS中的版本。它能使用眾多的本地的,XＡnim，RealPlａyeｒ,和Wiｎ３2ＤLL編解碼器，播放大多數(shù)MＰEG，ＶOB,AVI，OGG，VIVＯ,AＳF/WMV，QT/ＭＯV，ＦＬI,RM，NuppｅlVideo，yuｖ4mpeg，F(xiàn)ILM，RｏQ文件.你還能觀看VidｅoCＤ,SＶCＤ，DVD，３ｉvｘ,ReａlMedｉa，和DｉｖX格式的電影(你根本不需要aｖｉfｉｌe庫)。MPlayer的另一個大的特色是廣泛的輸出設備支持。它可以在Ｘ11,Xv,DＧA,ＯpｅｎGL,ＳVＧAlib，ｆｂｄev,AAlib，DiｒeｃtFB下工作，而且你也能使用GGI和ＳDL（由此可以使用他們支持的各種驅(qū)動模式）和一些低級的硬件相關的驅(qū)動模式（比如Matｒｏx,3Dfｘ和Rａｄeon,Maｃh64，Peｒmｅdia3).他們大多數(shù)支持軟件或者硬件縮放，因此能在全屏下觀賞電影。MPlａyer還支持通過硬件MPEＧ解碼卡顯示,諸如DＶB和DＸR3與Hollywｏod+?？梢允褂肊uropeａn/ISO８859—1,2(匈牙利語,英語,捷克語等等）,西里爾語，韓語的字體的清晰放大并且反鋸齒的字幕(支持１0種格式），和oｎsｃｒeendｉsplaｙ（OSD）。MPlayeｒ是Liｎux上一款非常優(yōu)秀的電影播放器，能夠播放大多數(shù)視頻文件，如MPEG,VOB，AVI,OＧG，VIVO,ＡSF/WＭV，QT/MOV，ＦＬI,RM，ＮuｐpelVidｅo，yuｖ4mpeg,FＩLＭ，RｏQ等。而且它的另一個優(yōu)點是可移植性好,現(xiàn)在常用的微軟的Wｉｎdows平臺和蘋果的Maｃ平臺都有它的身影.不僅如此，Ｍｐlaｙer還可以移植到很多非X86的平臺上。２。3基本原理MＣI(媒體控制接口）是Microsｏfｔ公司為實現(xiàn)Wiｎdows系統(tǒng)下設備無關性而提供的媒體控制接口標準。用戶可以方便地使用MCI控制標準的多媒體設備。ＭCI包含在Windowｓ多媒體擴展的MMＳYSTEM模塊中，用來協(xié)調(diào)事件間以及MCI設備驅(qū)動程序間的通訊，提供了與設備無關的接口屬性。通常應用程序是通過指定一個MＣI設備類型來區(qū)分ＭCI設備,設備類型指明了當前實際使用設備的物理類型，不同的設備類型使用不同的控件屬性來進行描述（見附表１）。從使用的控制方式上來說,MＣI設備分為復合和簡單兩類。一個簡單MCI設備并不需要設備元素。例如，CD音頻和音碟機就是在一個已經(jīng)安裝好了的硬盤上工作的，它們不需要應用程序為其操作的媒體內(nèi)容提供任何信息.但對于復合的MCＩ設備，就需要應用程序提供設備元素，即一個包含全部路徑名的源數(shù)據(jù)文件或目的文件。ＶiｓualBaｓiｃ語言的CuｓtoｍControｌ（用戶控制部件)概念體現(xiàn)了當今軟件設計的發(fā)展潮流－-面向?qū)ο蠹夹g，編程者可以在VisualBasic的工具箱（Toolboｘ）中嵌入各式各樣五花八門的用戶控件，每個用戶控制部件都有一定的屬性和操作方法，編程者通過屬性的設置和方法的控制完成特定的功能。為了方便地控制多媒體,在專業(yè)版ＶisｕaｌＢａsic工具箱中提供了一個用于多媒體目的的用戶控件—-MＣI。OCX。多媒體MCI控件MＣI.ＯＣX專用于對多媒體控制接口MCＩ設備的多媒體數(shù)據(jù)文件實施記錄和回放，從目的效果上來說，該控件通過一組按鈕來發(fā)出種種設備控制命令以實現(xiàn)對諸如:音頻面板、ＭIDI音序器、ＣD-ROM驅(qū)動器、音頻CD播放機、錄像帶播放、錄音帶錄放等設備的控制。在ＶisｕalＢａｓiｃ程序設計時,當在表中加入多媒體MCI控件時（在工具箱內(nèi)雙擊MCI控件）,則出現(xiàn)下列按鈕群：向前(Pｒev）、向后(Nexｔ)、播放（Ｐｌaｙ)、暫停（Pause）、返回(Baｃk)、單步(Ｓtep）、停止（Stop)、記錄(Record)和出帶（Eject)。應用程序?qū)CI的這組按鈕操作非常靈活方便,如當我們打開一個ＭCI設備后，就可以根據(jù)該設備類型的屬性隨時從控件中選擇合適的狀態(tài)按鈕來表示即刻設備的物理狀態(tài).所有ＭCI控件可以有下列幾種方式來編程:⑴控件及其各按鈕的可見性和使能性;⑵可變或完全對控件進行重新定義；⑶在一個窗口表格中可以同時控制多個設備。在ＶisuａlBａsｉc3.０專業(yè)版中,多媒體控件MCI。OＣX（在VisｕalBaｓic3．０和4.0中，多媒體控件的擴展名為。VＢX)是作為可選用部件提供的.為了使用它，首先要執(zhí)行Ｆiｌe菜單命令,把Ｗｉｎdowssｙstｅm目錄下的ＭCI。OCX加入到工具箱（Toolbox)中,這時會在工具箱中出現(xiàn)相應的MCＩ.OＣX圖標。如果使用的是VｉｓuaｌBasic4.0版（或5。0版）,選擇ooｌｓCusｔｏmCｏntrolｓ菜單或直接鍵入Ｃtrｌ＋T，即可出現(xiàn)對話框,在ＡvａｉlａｂleCｏｎtroｌｓ列表框中選中MicrosｏｆｔMuｌｔimediａContｒoｌs條目旁邊的檢查框，同樣會在工具箱中出現(xiàn)MCＩ．OCX圖標.

雙擊工具箱中的多媒體控件MCI.ＯＣＸ圖標，調(diào)用ＭCI。OCX控件之后，表單FOＲM中將出現(xiàn)一排灰色的媒體控制按鈕(九個）。多媒體控件ＭCＩ.OCX包含有一組高級的與設備無關的控制命令。在使用該多媒體控件時，首先用OＰEＮ命令打開MCI設備（多媒體設備)并建立一個與之對應的文件，以便來進行錄或放等操作（但是對諸如ＣDＡudio、VＣＲ和錄像帶不能使用相應文件）。一旦設備打開成功，就可以向它發(fā)出各種操作命令(見附表的按鈕命令）來完成指定的工作任務。最后記住，要用Ｃｌose命令來關閉設備和數(shù)據(jù)文件。?使用MＣI．OＣX來進行多媒體應用程序開發(fā)是很方便的，因為大多數(shù)屬性都是容易理解的,其中Command屬性尤為重要,它是在運行過程中向多媒體設備發(fā)命令.格式為：

ｍand＝cｍdｓtring$

其中，ｃmｄstｒｉng$變量是如下可執(zhí)行命令名:Open、Close、Play、Pause、Sｔｏp、Bacｋ、Steｐ、Prｅv、Next、Seek、Recoｒd、Eject、Soｕnd和Ｓａｖe。一旦給其命令設置,它就立刻執(zhí)行,所發(fā)生的錯誤存在Error屬性中。

下面以播放DＥMO.WAV（波形文件)文件為例，說明VｉsualBasic多媒體應用程序設計步驟。

首先,創(chuàng)建一個包含有多媒體控件(MCI.ＯCX)的表格（Foｒｍ),于是屏幕上顯示出形狀類似錄音機的控制鍵,不過這時多媒體控制部件是不能馬上拿來用的（各鍵呈灰色）,須通過程序代碼來改變鍵的狀態(tài)。

其次，在Form_Lｏad過程中,插入相應程序代碼。如下?SｕbFoｒm_Loａd（)?‘在發(fā)出ＯPEN命令前要設置多媒體設備的屬性?Fｏrm１．MＭCoｎtrｏl1.Ｎotify=Ｆalsｅ?Fｏrｍ1.MMＣontｒol1.Waiｔ=Trｕe

Ｆoｒm1.MMContｒoｌ１.Shareable＝False

Forｍ1.MMＣontroｌ１．DeviｃeTyｐe="WaveAudｉｏ"?Foｒm１。MMＣontrｏl1。"c:windｏwss

Mmdataｄeｍo.wav"

mａnｄ=”Ｏｐｅn"

EndSub3設計方案的實現(xiàn)3。１自動連續(xù)循環(huán)播放多個文件通過對通用對話框控件（COMＤLG3２.OCX）的有關屬性進行設置，可實現(xiàn)按選擇的文件類型在列表框中顯示符合條件的文件，用戶可在該列表框中顯示符合條件的文件，用戶可在該列表框中選擇一個文件，或選擇連續(xù)或不連續(xù)的幾個文件,若選擇了多個文件,則按順序連續(xù)循環(huán)播放。開始播放后，組合框和窗體的標題欄同時顯示正在播放文件的文件名。3.２自動記憶播放目錄和正在播放的文件的路徑退出播放器時，程序自動將用戶選擇的目錄保存到Ｗindｏws的注冊表中，以便下次選擇要播放的文件時,在打開對話框中，直接顯示的是上次選擇的目錄。同時，自動將用戶選擇的文件清單保存到文件中,以便下次啟動該程序時，可以直接從退出時正在播放的那個文件開始繼續(xù)播放,這樣就能實現(xiàn)每次啟動播放器，首先播放的是上次退出時播放的那個文件。這樣做就使程序具有了記憶功能。３．3用戶自定義播放順序單擊下一首按鈕，開始播放下一個文件，單擊上一首按鈕，開始播放上一個文件。單擊暫停按鈕，則播放器暫停播放，同時暫停按鈕變?yōu)殚_始按鈕，單擊開始按鈕，播放器從暫停處繼續(xù)播放,同時開始按鈕恢復為暫停按鈕。單擊組合框右邊的下拉箭頭,可以看到正在播放的文件列表，要想換一個文件播放,直接單擊文件名即可。用戶也可以直接打開播放列表文件,用文本編輯器編輯播放文件的順序.程序代碼4。1界面布局設計新建一個窗體Foｒml,在上面畫一個組合框Ｃomｂｏｌ,設置其Stｙle屬性2—DｒｏpｄowｎList，畫五個命令按鈕（打開、暫停、關閉、上一首、下一首）,一個通用對話框(ＣommonDｉａlog）控件,一個媒體播放器(WinｄowｓMeｄiaPlaｙer)控件.調(diào)整好控件在窗體中的位置。4。2系統(tǒng)初始化PrivateDｅcｌaｒeFuｎctioｎGetSystemDiｒectoｒyLｉb″Ｋｅrnｅl32″Aliaｓ″GetSｙｓtemDirectｏryA″（ＢyVaｌpBｕffeｒAsSｔrｉｎg，BｙVａlnSizｅAsＬoｎg)AsLong返回Ｗｉｎ２ｄｏwｓ\systｅｍ所在的文件夾PrivateＷinSysＰaｔhAsStｒｉnｇPrivateSelectFＮame（１0００）AsStｒingＰrｉｖateＳelｅｃtNｕmAｓIｎtｅger，ＮeｘtPlayingAsIntegerＰrivatｅPrｅｖiousPathＡsString此變量保存用戶上次選擇的目錄,其值保存在Ｗｉndows注冊表中4．3自動從上次退出時的文件處繼續(xù)播放要實現(xiàn)此功能,可以在窗體的Load事件中編寫如下代碼：Diｍtmp1AsＳtrｉngDiｍtｍp2ＡｓIｎｔegerMｅｄiaPlayｅr1.AutoRewind=ＴrueMediaPlａyｅr1．AutoSｔａｒｔ=TrueＭｅdiaPlayer１．ShｏwStatuｓＢar=ＴｒueＭediaＰl(wèi)ａyeｒ1。SｈｏwDisplay=TｒuｅMediaＰl(wèi)ayｅｒ1．AutoSize=ＦaｌseＣｏmbo１.Ｌocｋed=ＦaｌsePreviｏuｓPath=GetSetｔiｎg(″ＭyＰｌａｙer″,″PlaｙMM″，″LaｓtPath″，″NoDaｔa″)以下代碼將上次選擇的多媒體文件(保存在ＷiｎSｙsＰａt(yī)ｈ中)讀出來,放SｅlectFNaｍe數(shù)組中,并開始播放tmｐ１=Spａce(2６0）tｍp2=GetSysｔeｍＤirectｏry（tmp1，Len(ｔmp1））ＷｉnＳysPath=Ｌeｆt(tmp1,ｔmｐ2）ＷinSyｓPaｔh=WingＳｙｓPath+″\Iｎｖｅｎtｏｒy.tｘt″Inventory.txｔ文件保存正在播放文件的列表。ＯｎＥrｒoｒGoＴoErｒhandｌerSeｌectNuｍ=0ＮeｘtPlaｙinｇ=－１O(jiān)pｅnWinＳysPaｔhFｏｒＩｎpuｔAs#1DｏＷｈileNotEＯF(１）LinｅInput#1,SｅlectFName（SelectNum）＼CｏｍbｏL．AddｌtemMｉｄ（ＳelｅctFNaｍｅ（Ｓelect2Ｎum），ＩｎStrRev（SelectFＮaｍe（SｅｌｅctＮｕｍ），″\N）+１）ＳelectＮuｍ＝SelｅctNuｍ+1LｏoｐCｌose＃１MediaPlayｅrlEndOfＳtrｅam(0&）Errhandlｅr:ＩfComｂoｌ.LiｓtCount=0Tｈen′Invenｔoｒy.tｘｔ文件不存在或播放列表為空Combｏl。Liｓt(0）=“沒有可選項目”EndIfCｏmｂｏl．Ｌiｓtlｎdeｘ=0４。4選擇播放序列ＰriｖatｅSｕbＣｏｍmanｄ1Ｃlicｋ(）DimFＮameAsSｔrinｇＤｉmiAsIｎteｇeｒ，jAsInｔegerDimTｈePathAｓSｔｒingDｉmｔmｐAsStｒingCｏmmonDｉalog1。ＣancelErrｏr=TruｅOnErｒorＧoＴｏEｒrhandler允許多選，所有選擇的文件名之間用空格分隔，保存在中ComｍonＤialｏgl。Flags=cdlOFNＡｌlowＭultisｅlectCｏmmoｎDialogl.InｉtＤｉr＝IIｆ（ＰｒeviouｓPath=″o２Data″，″C：\WＩNＤＯＷS″,ＰrｅｖiｏuｓPatｈ)CoｍｍoｎDｉalogl。Filter=″3。mpeg｜3.mpeｇ|3.mpg|3.mpg|３．a(chǎn)vi|３3.AVI｜３。wav|3。WAV|3.mid｜3。MID|３。ｍp3｜3。MＰ３|3。ｍov｜3．ＭOV|3.ｄａｔ|３．ＤAT｜3.RＭI|３.rmi|3。3|3.3″CoｍmｏnDｉaｌogl．Max=32767當同時選擇許多文件時默認的260放不下,故要大點,這是最大的值CommonＤialog１．ＳhｏwOpenＦName＝CommｏnDｉalogl。下面代碼將選擇的若干文件名分開,放在數(shù)組SelecｔFName中ＩfInStr（FNａme,Chr(32）)=0Ｔhen′若只選擇一個文件,FNamｅ中沒有空格,否則文件名之間用空格分隔,若文件在根日錄，則路徑形如E:\,否則形如E：＼abc\１2３SelｅctNuｍ＝1SｅｌｅctFＮamｅ（0）=ＦNameTｈePath=Ｌｅｆt(Fｎamｅ,InＳtrRev(Fname,″\″）—１)EｌsｅThePaｔh=Left（ＦNａme，ＩnＳtr（FNamｅ，Chｒ(32）)－１）+″\″FName=Mid(Fname,InStr（Ｆnaｍe，Chr（３2)）＋1)ＳｅleｃtNum=０J=1ｔmp=Spaｃe(0)Foｒｉ=1ToLen（FＮａｍe）IfＭiｄ（FＮame,i,１)＝Ｃhr(32）TｈenSｅlecｔFＮame（SｅlｅｃtＮum）＝ＴｈeＰatｈ+ｔmpSｅlectNｕm=ＳeleｃtＮum+1tmｐ=Spａce(0）Ｅlsetｍp=tmp+Ｍiｄ（ＦNamｅ,i，１）ＥndIｆＮextiSelectＦNamｅ（SeｌｅｃtＮum)=ThePａｔh＋ｔmｐSeｌectNum=SelecｔNum＋1EndIf’分隔結(jié)束Cｏmｂol．ClearＦori=0ToSelｅctNuｍ-1此循環(huán)將選中的文件顯示在組合框中Combｏl．AddｌtemＭｉd（SｅlectFNamｅ（ｉ)，Ｉn2ＳtrRev(SelｅｃｔFNamｅ(i），″\″)+1）NｅxｔｉCombol．Listlnｄeｘ=0NextPlaｙｉng=0Me.Capｔｉｏｎ=Cｏmboｌ．TextMedｉaPlayeｒl。＝SelｅｃtFName（0)SaveSettinｇ″MyPｌａｙer″，″ＰｌaｙMＭ″,″LaｓtＰａt(yī)h″，″ThｅPath″Eｒrhａｎｄler:EｎdSub4。5暫停播放PrivatｅSubCommaｎｄ2Cｌick（)IｆＣｏmmanｄ2.Captioｎ=“暫停”ＴhｅnCｏmmａnd2．Cａｐｔiｏｎ=“開始”MedｉaPｌaｙerl.ＳtoｐElseComｍand2．Caｐtioｎ=“暫?！盡ｅdiaPlayerl．ＰｌayEndIfEnｄＳuｂ4.６關閉播放器退出之前，將用戶選中的文件保存起來，以便下一次啟動該程序時，可以直接從保存時的文件開始繼續(xù)播放,為了做到這一點,在將播放列表寫入文件時，必須讓正在播放的那個文件首先寫入文件中,然后是它后面的,到底后再繞回來，按這個順序?qū)懭搿Ｒ驗槌绦騿雍?是按文件電的列表順序從前向后進行播放的，故每次啟動都省先播放的是退出之前播放的那個文件。PrivateＳubComｍａｎd3Click（）DimｔmplAｓInｔｅｇｅrOnErｒoｒGｏＴoＥrｒhaｎdleｒtmp1＝0OpeｎＷiｎＳysＰａt(yī)ｈFｏrOutputAs＃1DoＷｈｉletｍpl〈ＳelｅｃtNｕmPｒinｔ＃1,SeｌｅctＦNａmｅ（ＮexｔPlａｙinｇ）tmp1＝tmp１+1ＮextPlaying=（NexｔPlayinｇ+1）ＭｏｄSｅlect2NumLoｏpCｌosｅ＃IEｒrhandler：UnｌoaｄMeEndSｕｂ４。7上一首PrivateSubCoｍmandoClｉcｋ（yNｅxtPlaying＝ＩIf（NextＰl(wèi)aying-1〈0，Seｌecｔ2Ｎuｍ—2，NextPｌaying—２）ＭedｉａＰl(wèi)aｙerl-EndOfStｒeａm（０&)EndSub4.８下一首PｒｉｖatｅSｕbCommandｓＣlｉｃk(）MediａPlayerlEndOfStｒｅaｍ(0&)ＥndSｕb4．9在組合框中選擇播放文件PrivaｔeSubCｏmbolClicｋ(）NextPｌａｙing＝Combol．Ｌistlndｅｘ-1ＭedｉaPlaｙeｒlＥndOfSｔrｅam（0＆)ＥndSｕｂ4。10卸載播放器PriｖaｔeSｕbＦorｍQueryUnloaｄ(CaｎceｌＡｓIｎte2ger，ＵnｌoadModｅＡsIｎteger)Cｏmmand3CliｃｋEｎdＳub4.11切換文件PｒｉvaｔeSubMediａPlayerl－ＥｎｄＯfStｒeaｍ(ＢyVal2ResultAｓLong）播放文件結(jié)束時觸發(fā)此事件OnＥｒrorGoTｏEｒrｈａndlerNｅxｔPlaｙing＝（NextPlａying+１)ＭodSelecｔNumMeｄiａＰl(wèi)ayerl.=SelectFNａｍe(NexｔＰl(wèi)ayinｇ)Combol.Ｌistlndex=ＮextＰl(wèi)ayinｇMe.Caption=Combｏl.ＴeｘtＣoｍmａnd２。Enabled=TrueＣoｍｍａnd2.Captioｎ=“暫?！盓ｒrhandｌeｒ:EndSub/／DynSｐｌiｔView２。ｃpｐ：imｐｌｅｍenｔaｔｉｏｎfｉlｅ//5運行結(jié)果Mｐlayer是我們所設計的多媒體播放器的核心，它支持的視頻格式直接影響到整個播放器的性能。下面將從這方面入手，對它的性能進行必要的測試.Mplａyｅr的解碼庫是它支持的視頻格式的決定因素。在Ｘ8６平臺的Linux操作系統(tǒng)中，Mplayer擁有豐富的解碼庫，但是很大一部分都是以非開源的形式提供的。所以將Mplａyer移植到OＭAP3530平臺后，僅僅有為數(shù)不多的幾個開源的庫可以繼續(xù)使用.移植以后的Mplaｙｅr的視頻解碼器包括FFmｐegDiｖX/ｌｉbａvcoｄeｃ、liｂｍpeg2和XviD等比較常用的庫，可以支持H263、MJPEG、RV10、DｉvX3、DiｖX4、DivX5、MP４1、MP42、WＭV1、WMV2、HufｆYＵＶ以及MPEG和ＡVI編碼格式編碼的視頻流。而通俗的講，常見的媒體類型，除了RＭ格式和QuiｃkＴｉｍｅ格式以外，移植后的Ｍpｌayｅr基本都可以支持的。下面是播放各種格式視頻的截圖:圖2播放fｌv格式視頻圖3播放ａvi格式視頻圖4播放mｐeg格式視頻圖5播放mｐg格式視頻6心得體會學習VB程序設計的方法保持良好的學習心態(tài)，要有自信,自強,積極主動學習．克服畏難情緒,樹立學好程序設計的信心要有良好的學習習慣。VB程序設計的入門學習并不難,但卻是一個十分重要的過程，因為程序設計思想就在這時形成的，良好的程序設計習慣也在這個階段養(yǎng)成。學習程序設計要注重理解一些重要的概念。VＢ程序設計本身并不復雜，翻開一本程序設計學習的書籍,看到的無非就是變量,函數(shù),條件語句，循環(huán)語句等概念．但要真正能進行程序設計，需要深入理解這些概念.因此，在程序入門階段還是應該重視概念的學習.程序設計入門階段要經(jīng)常自己動手抄寫或編寫一些小程序,親自動手進