【文章內容簡介】 o Animation控件的主要功能是什么？對播放的文件有什么要求？ ?答案： Animation控件被稱為動畫控件，可以播放無聲的視頻動畫 AVI文件。 AVI動畫類似于電影，由若干幀位圖組成，這些位圖按一定的順序播放，但是沒有聲音。有些 AVI動畫可以有聲音，但是這類文件不能在 Animation控件中播放，否則會產生錯誤。 Company Logo L o g o MMControl控件和 Windows Media Player控件有什么區(qū)別？ ?答案： Windows Media Player控件是 Microsoft公司晚些時候推出的多媒體控件，它的功能比MMControl控件功能要強大一些，不僅可以播放AVI、 MIDI和 WAV格式的文件，還可以播放MMControl控件無法播放的 MEPG和 MOV等多媒體文件。用 Windows Media Player控件播放動畫文件時，還可以顯示當前播放時間或播放幀。 Company Logo L o g o 第 12章 多媒體程序設計 知識要點 習題與解答 實訓指導 測驗題 Company Logo L o g o ☆ ?☆ 熟練掌握使用用多媒體控件（ MMControl）編寫多媒體程序的方法 ?☆ 掌握使用 Animation控件編寫多媒體程序的方法 ?☆ 掌握使用 Windows Media Player控件編寫多媒體程序 ?☆ 了解其他常用多媒體控件的基本功能 ?☆ 基本掌握使用 API函數(shù)編寫多媒體程序的方法 Company Logo L o g o ?【 實訓 】 制作一個 CD播放器。 ?窗體界面設計：在窗體上添加一個多媒體控件（ MMControl1）、一個列表框（ List1）、一個命令按鈕（ Command1）、兩個圖像框（ Image1和 Image2）、和六個標簽控件（ Label1~Label6）。各個控件的具體擺放如圖121所示。兩個圖像框加載了兩幅圖片來裝飾窗體界面；六個標簽的 AutoSize屬性均為 True，其它相關屬性設置如表 124所示。 Company Logo L o g o 124 各控件的基本主要屬性設置 控件 名稱 Caption Label Label1 當前正在播放的曲目序號是： Label Label2 當前曲目已經播放的時間是： 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 ? 程序代碼設計如下： ? Dim iTime As Integer 39。 曲目播放總時 (秒為單位 ) ? Dim iSecond As Integer 39。 秒 ? Dim iMinute As Integer 39。 分 ? 39。打開設備 ? Private Sub Command1_Click() ? MsgBox (請將 CD盤放在驅動器中 ,否則產生錯誤！ ) ? = Open ? ‘獲得曲目數(shù) ? Dim i As Integer ? For i = 1 To ? 曲目 → Format(i) ? Next i ? = mciFormatTmsf 39。設置時間格式 ? = False 39。使按鈕不可用 ,避免重載 Company Logo L o g o ? 39。 設置最初曲目號 ? If 0 Then ? = 1 ? = 0 ? End If ? Exit Sub ? End Sub ? Private Sub Form_Load() ? = True ? = 0 ? = CDAudio 39。 設置設備類型 ? = 0 39。 設置曲目號為 0 ? = H404040 39。 顯示停止播放狀態(tài) ? End Sub Company Logo L o g o ? Private Sub Form_Unload(Cancel As Integer) ? = Stop ? = Close ? End ? End Sub ? 39。彈出 CD光盤，使裝載按鈕可用 ? Private Sub MMControl1_EjectClick(Cancel As Integer) ? = True ? = 0 ? = Eject 39。 彈出 CD ? = Close 39。 關閉設備 ? = 0 39。 設置曲目號為 0 ? = 1 ? = H404040 39。 顯示停止播放狀態(tài) ? Exit Sub ? End Sub Company Logo L o g o ? 39。下一曲 ? Private Sub MMControl1_NextCompleted(ErrorCode As Long) ? 39。 播放下一個曲目 ,則顯示新的曲目號