《多媒體應(yīng)用程序設(shè)計(jì)》教學(xué)課件3

多媒體應(yīng)用程序設(shè)計(jì)播放器程序設(shè)計(jì)多媒體播放器項(xiàng)目目標(biāo)：設(shè)計(jì)了一個(gè)簡單的多媒體播放器，可以播放各種格式的音頻，實(shí)現(xiàn)文件的查詢和播放等功能；在播放音頻的同時(shí)還有相應(yīng)的進(jìn)度顯示，在窗口的標(biāo)題中會(huì)顯示播放文件的相關(guān)信息等。通過本項(xiàng)目的學(xué)習(xí)要掌握多媒體控件的時(shí)候，特殊菜單的制作通用對(duì)話框控件的使用等。第1步：基礎(chǔ)知識(shí)VisualBasic為用戶提供了一組標(biāo)準(zhǔn)的系統(tǒng)對(duì)話框，這組對(duì)話框是各種應(yīng)用程序都要用到的，因此稱為通用對(duì)話框。

它們是：“打開”對(duì)話框、“另存為”對(duì)話框、“顏色”對(duì)話框、“字體”對(duì)話框、“打印”對(duì)話框以及“幫助”對(duì)話框。第1步：基礎(chǔ)知識(shí)通用對(duì)話框必須用CommonDialog控件來建立，必須現(xiàn)將該控件添加到工具箱中。CommonDialog控件屬于ActiveX控件的一個(gè)組件，它隨同VB提供給用戶，把CommonDialogue添加到工具箱后，就可以像使用其他標(biāo)準(zhǔn)控件一樣為應(yīng)用程序添加CommonDialog對(duì)象了如圖1所示。圖1CommonDialog控件1、添加通用對(duì)話框到工具箱中的方法：選擇“工具”下拉菜單中的“部件”選項(xiàng)，彈出“部件對(duì)話框。在對(duì)話框的“控件”標(biāo)簽中的列表框中選擇“MicrosoftCommonDialogControl6.0”項(xiàng)目。單擊“確定”按鈕。如圖2所示圖2添加CommonDialog控件第1步：基礎(chǔ)知識(shí)2、使用CommonDialog控件把CommonDialog控件添加到窗體后，實(shí)際上已經(jīng)把上述的各種標(biāo)準(zhǔn)對(duì)話框加入到應(yīng)用程序中，但是程序運(yùn)行時(shí)是看不見的。當(dāng)某一時(shí)刻需要用到某個(gè)對(duì)話框時(shí)，再通過VB的顯示方法使之顯示在屏幕上。第1步：基礎(chǔ)知識(shí)3、設(shè)置對(duì)話框的屬性CommonDialog控件中每個(gè)對(duì)話框都有自己特有的屬性，與其他控件一樣，這些屬性既可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置。通用對(duì)話框的Name屬性的缺省名稱為CommonDialogX（X為1，2，3……）。通用對(duì)話框共有6種類型，對(duì)話框的類型可以通過Action屬性設(shè)置，在表13-1中列出了各類對(duì)話框的Action屬性值對(duì)應(yīng)的方法。第1步：基礎(chǔ)知識(shí)打開“屬性頁”對(duì)話框的方法：把CommonDialog控件添加到窗體上打開“屬性”窗口在“屬性”窗口中選擇“（自定義）”，再單擊右邊的“…”按鈕，彈出“屬性頁”對(duì)話框如圖13-3所示圖3通用對(duì)話框的屬性第1步：基礎(chǔ)知識(shí)多媒體控件VisualBasic提供了幾種用于多媒體開發(fā)的控件，主要包括以下幾種：MCI控件MultimediaMCI多媒體控件通常也叫MMControl多媒體控件。它用于管理多媒體控制接口（MCI）設(shè)備，這些設(shè)備包括聲卡、MIDI發(fā)生器、CD-ROM驅(qū)動(dòng)器、音頻播放器和視頻播放器。MCI控件具有一組執(zhí)行MCI命令的按鈕。包括播放、暫停、前進(jìn)、后退、停止、錄制和彈出等。如下圖所示：圖4MCI控件的外形多媒體控件

MCI控件的屬性命令描述Open打開MCI設(shè)備Pause暫停播放Stop停止MCI設(shè)備Back后退Close關(guān)閉MCI設(shè)備Eject從CD驅(qū)動(dòng)器中彈出CDSlider控件滑塊控件(Slider)是由一個(gè)滑塊和一個(gè)帶有刻度的標(biāo)尺組成的，用戶既可以用鼠標(biāo)拖動(dòng)滑塊。標(biāo)尺上的刻度反映了滑塊的可移動(dòng)范圍和當(dāng)前位置。當(dāng)滑塊移動(dòng)時(shí)，系統(tǒng)會(huì)自動(dòng)顯示滑塊的當(dāng)前值，滑塊既可以水平設(shè)置，也可以垂直設(shè)置。在“部件”對(duì)話框中，選擇“MicrosoftWindowsCommonControl6.0”選項(xiàng)，可以將滑塊控件添加到工具箱中。其圖標(biāo)如圖所示。圖5滑塊控件外觀圖第2步：界面設(shè)計(jì)任務(wù)一：在窗體上添加菜單項(xiàng)在窗體上添加菜單項(xiàng)如圖：項(xiàng)目的菜單項(xiàng)菜單標(biāo)題菜單名稱其他文件（&F）wenjian…打開（&O）dakai…播放（&P）bofangEnable:False…—L1…暫停（&Z）zantingEnable:False…停止（&S）tingzhiEnable:False…—L2…退出（&Q）tuichu幫助（&H）bangzhu…關(guān)于（&A）guanyu第2步：界面設(shè)計(jì)設(shè)計(jì)好的菜單編輯器如下圖所示：

圖

設(shè)計(jì)好的菜單編輯器任務(wù)二：窗體上添加一個(gè)通用對(duì)話框窗體上添加一個(gè)通用對(duì)話框（CommonDialog），添加方法：“工程”→“部件”→“控件”→“MicroSoftCommonDialogControl6.0”任務(wù)三：在窗體上添加一個(gè)Slider控件，添加方法：“工程”→“部件”→“控件”→“MicroSoftWindowsCommonControl6.0”任務(wù)二：窗體上添加一個(gè)通用對(duì)話框任務(wù)四：在窗體上添加MCI控件，添加方法：“工程”→“部件”→“控件”→“MicroSoftMultimediaControl6.0任務(wù)五：在窗體上添加一個(gè)Timer控件，一個(gè)PictureBox控件并添加一幅圖片（任意選擇）任務(wù)二：窗體上添加一個(gè)通用對(duì)話框設(shè)計(jì)完畢界面如圖6所示：圖6項(xiàng)目界面第3步：程序設(shè)計(jì)任務(wù)一：為窗體添加程序段：PrivateSubForm_Load()Timer1.Enabled=FalseMe.Timer1.Interval=100'規(guī)定顯示輸出的窗口為默認(rèn)窗口Me.MMControl1.hWndDisplay=0'為對(duì)話框設(shè)置默認(rèn)的文件擴(kuò)展名Me.CommonDialog1.DefaultExt="所有文件|*.*"'設(shè)置對(duì)話框的類型列表框中所顯示的文件類型過濾器Me.CommonDialog1.Filter="所有文件(*.*)|*.*|Windows視頻(*.avi)|*.avi|CD音頻(*.wav)|*.wav"EndSub任務(wù)二：為“打開”菜單編寫程序段為“打開”菜單編寫如下程序段：PrivateSubdakai_Click()'打開"打開文件"對(duì)話框

Me.CommonDialog1.ShowOpen'MCI控件讀取打開文件Me.MMControl1.FileName=Me.CommonDialog1.FileName'如沒有打開文件就退出IfMe.MMControl1.FileName=""ThenExitSubElse任務(wù)二：為“打開”菜單編寫程序段

'打開MCI文件

Me.MMControl1.Command="open"Me.Timer1.Enabled=True'設(shè)置Slider控件的最大和最小值

Me.Slider1.Max=Me.MMControl1.LengthMe.Slider1.Min=0Me.Slider1.LargeChange=Me.MMControl1.Length/5Me.Slider1.SmallChange=Me.MMControl1.Length/10EndIfMe.Caption="已打開:"&CommonDialog1.FileNamebofang.Enabled=Truezanting.Enabled=Truetingzhi.Enabled=TrueEndSub任務(wù)三：編寫其他程序段其他程序段如下：“播放”菜單PrivateSubbofang_Click()MMControl1.Command="play"Me.Caption="正在播放:"&CommonDialog1.FileNameEndSub“關(guān)于”菜單PrivateSubguanyu_Click()MsgBox"CDAudioPlayer1.0",vbOKOnly,"關(guān)于"EndSubTimer控件PrivateSubTimer1_Timer()Slider1.Value=MMControl1.PositionEndSub任務(wù)三：編寫其他程序段“停止”菜單PrivateSubtingzhi_Click()MMControl1.Command="close"Timer1.Enabled=FalseSlider1.Value=1Me.Caption="CD播放器"EndSub“退出”菜單PrivateSubtuichu_Click()EndEndSub任務(wù)三：編寫其他程序段“暫停”菜單PrivateSubzanting_Click()MMControl1.Command="pause"Me.Caption="暫停播放"&CommonDialog1.FileNameEndSub任務(wù)三：編寫其他程序段程序運(yùn)行結(jié)果如下圖所示：圖

項(xiàng)目的運(yùn)行圖第4步：項(xiàng)目總結(jié)MCI控件播放文件的方法菜單項(xiàng)的制作Slider控件的使用媒體文件的相關(guān)屬性第5步：程序測試，完善功能。待完善功能包括把擺線的形狀設(shè)計(jì)的更多一些，不同的擺線設(shè)計(jì)不同的顏色和線型以及正余弦函數(shù)顯示的不同等。第6步：程序打包程序打包，生成可執(zhí)行文件EXE單擊【文件】菜單下的生成“多媒體播放器.exe”，選擇適當(dāng)?shù)奈恢帽４嫔傻膃xe文件，單擊“確定”。當(dāng)需要再次打開的時(shí)候，找到“多媒體播放器.exe”，雙擊運(yùn)行播放各種聲音文件。第6步：程