【正文】
top ☆ Close方法 ?該方法用來關(guān)閉當(dāng)前打開的 AVI文件。 ?②將 Windows Media Player控件添加到工具箱的方法是:在工具箱上右鍵單擊,在彈出的“部件”對話框中,選中“ Windows Media Player”,然后單擊“確定” 按鈕。 Company Logo L o g o 控件名稱 基本功能 所在部件名稱 MCIWnd 控件 用戶不編寫代碼就可以播放諸如 WAV、 MID、AVE、 DAT等格式的多媒體文件。 ShockWave Flash RealAudio控件 可以利用該控件播放 RM、RAM等格式的多媒體文件 Real Player ActiveX Control Library ActiveMovie控件 只要將其“ FileName”屬性值設(shè)定為特定的文件名稱,就可以播放 MPAVI等多媒體文件。sndPlaySound()函數(shù)有l(wèi)pszSoundName和 uFlags兩個參數(shù),lpszSoundName用來指定播放的文件名稱,uFlags用來控制播放的狀態(tài)。 ?在模塊中 mciExecute函數(shù)的聲明語句為: Public Declare Function mciExecute Lib (ByVal lpstrCommand As String) As Long Company Logo L o g o 第 12章 多媒體程序設(shè)計 知識要點 習(xí)題與解答 實訓(xùn)指導(dǎo) 測驗題 Company Logo L o g o 什么是 MCI? ? 答案: Widows版本為控制音頻、視頻、動畫等外圍設(shè)備提供了與設(shè)備無關(guān)的多媒體控制接口( MCI,Media Control Interface),用戶的應(yīng)用程序可以使用 MCI控制標(biāo)準(zhǔn)的多媒體設(shè)備。 Company Logo L o g o 常見的多媒體設(shè)備有哪些? ?答案:常見的多媒體設(shè)備類型有:AVIVideo(視頻文件)、 CDAudio(音頻 CD 播放器)、 DAT(數(shù)字音頻磁帶播放器)、 WaveAudio(播放數(shù)字波形文件的音頻設(shè)備)和 Sequencer(音響設(shè)備數(shù)字接口( MIDI) 序列發(fā)生器)。 Button泛指多媒體控件上的任意一個按鈕,具體為 Prev按鈕、Next按鈕、 Play按鈕、 Pause按鈕、 Back按鈕、 Step按鈕、 Stop按鈕、 Record按鈕和 Eject按鈕。它們可以通過多媒體控件的Command屬性來執(zhí)行。 AVI動畫類似于電影,由若干幀位圖組成,這些位圖按一定的順序播放,但是沒有聲音。 Company Logo L o g o MMControl控件和 Windows Media Player控件有什么區(qū)別? ?答案: Windows Media Player控件是 Microsoft公司晚些時候推出的多媒體控件,它的功能比MMControl控件功能要強大一些,不僅可以播放AVI、 MIDI和 WAV格式的文件,還可以播放MMControl控件無法播放的 MEPG和 MOV等多媒體文件。 Company Logo L o g o 第 12章 多媒體程序設(shè)計 知識要點 習(xí)題與解答 實訓(xùn)指導(dǎo) 測驗題 Company Logo L o g o ☆ ?☆ 熟練掌握使用用多媒體控件( MMControl)編寫多媒體程序的方法 ?☆ 掌握使用 Animation控件編寫多媒體程序的方法 ?☆ 掌握使用 Windows Media Player控件編寫多媒體程序 ?☆ 了解其他常用多媒體控件的基本功能 ?☆ 基本掌握使用 API函數(shù)編寫多媒體程序的方法 Company Logo L o g o ?【 實訓(xùn) 】 制作一個 CD播放器。各個控件的具體擺放如圖121所示。 Company Logo L o g o 124 各控件的基本主要屬性設(shè)置 控件 名稱 Caption Label Label1 當(dāng)前正在播放的曲目序號是: Label Label2 當(dāng)前曲目已經(jīng)播放的時間是: Label Label3 CD播放器暫停播放 Label Label4 0 Label Label5 00:00 Label Label6 Form Form1 CD播放器 MMControl MMControl1 Company Logo L o g o 圖 121 Company Logo L o g o ? 程序代碼設(shè)計如下: ? Dim iTime As Integer 39。 秒 ? Dim iMinute As Integer 39。打開設(shè)備 ? Private Sub Command1_Click() ? MsgBox (請將 CD盤放在驅(qū)動器中 ,否則產(chǎn)生錯誤! ) ? = Open ? ‘獲得曲目數(shù) ? Dim i As Integer ? For i = 1 To ? 曲目 → Format(i) ? Next i ? = mciFormatTmsf 39。使按鈕不可用 ,避免重載 Company Logo L o g o ? 39。 設(shè)置設(shè)備類型 ? = 0 39。