多媒體播放器
媒體播放器控件（MCI）可以播放音頻和視頻，也就是音樂和影碟。
在 D:盤根目錄下新建壹個文件夾，名字改為music，裏面拷入三個音樂文件，壹個Wav文件重命名為one，另壹個Mp3文件，重命名為two，再將第十課中的thr視頻文件拷貝進去，這是壹個Avi文件。
啟動VB，修改好窗體的各個屬性，再添加壹個標簽，將Caption改為“我的播放器”。
MCI控件要自己添加到工具箱中，方法是在工具箱上單擊鼠標右鍵，選擇“部件”在對話框中找到Microsoft Multimeia Control6.0 打上勾選中，再單擊“確定”這樣在工具箱中就加入了多媒體控件MMControl。
在工具箱裏找到MMControl控件（最後壹個），選中後在窗體上畫壹個，可以發現跟我們常見的設備符號壹樣，有播放、停止、暫停、快進、彈碟等等。以“音樂播放器”為文件名保存文件到自己的文件夾。
現在播放器是虛的，還要設置壹下顯示屬性，用鼠標右鍵單擊窗體中的多媒體控件，在彈出的菜單中選擇“屬性”，在彈出的對話框頂端選擇“控件”標簽，將各個按鈕符號旁邊的有效選中打上勾，單擊“確定”回到窗體中，這時候控件就可以使用了。
單擊啟動按鈕運行壹下，窗口中的播放器還是虛的，這是因為還沒有要播放的文件。
關閉程序回到窗體窗口，添加壹個框架Fram1，向裏面添加三個單選按鈕Option，分別設置Caption為Wav，Mp3和Avi，再修改好背景色。
下面我們來添加代碼打開播放器，播放壹個指定的文件，雙擊窗體，添加代碼到Form_Load()過程中初始化播放器：
MMcontrol1.Notify=False '不返回播放信息
MMcontrol1.Wait=True '播放時其他人等待
在代碼窗口的頂部左邊的列表中選擇Option1，右邊自動選擇Click，在彈出的Option_Click()過程中添加播放Wav的代碼：
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音頻格式
MMControl1.FileName = "d:\music\one.wav" '文件夾中的one.wav文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '播放文件
各行代碼的作用，在後面的綠色註釋中講到，最後壹句用來自動播放，相當於單擊播放器的“播放”按鈕，播放時必須要有文件名和播放命令。
同樣找到Option2的Click()過程，添加播放MP3的代碼：
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "" '其他類型
MMControl1.FileName = "d:\music\two.mp3" '文件夾中的two.mp3文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
這裏的Mp3格式是壓縮格式屬於其他類型，別的跟Wav文件相同，都是聲音文件，沒有圖像只有音樂。
註意Option3有些不同，它是Avi視頻格式，也就是既有聲音還有圖像，它的Click()代碼為：
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "AviVideo" 'Avi視頻格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗體當屏幕
MMControl1.FileName = "d:\music\thr.avi" '文件夾中的thr.avi文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
這兒第三行代碼是讓視頻圖像顯示在背景中，也可以添加壹個圖片框，把Form1改為PIcture1，註意圖像的比例壹般是4:3 或者16:9。
檢查壹遍代碼，註意中英文和標點符號以及大小寫的正確性。保存壹下文件
單擊“啟動”按鈕運行程序，點擊不同的格式文件來播放音樂，看看我們的多媒體播放器強大的功能，註意重復播放時要倒帶子，單擊“倒帶”然後再播放就重新播放了，退出前壹定要關閉設備也就是“close”命令。
整個代碼為：
Private Sub Command1_Click() '退出程序
MMControl1.Command = "close" '關閉播放器設備
MMControl1.Shareable = True '允許別人使用播放器
End
End Sub
Private Sub Form_DblClick()'雙擊退出
MMControl1.Command = "close" '關閉播放器
MMControl1.Shareable = True
End
End Sub
Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放時其他人稍等
End Sub
Private Sub Form_Unload(Cancel As Integer) '關閉窗口
MMControl1.Command = "close" '關閉播放器
MMControl1.Shareable = True
End Sub
Private Sub Option1_Click()
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音頻格式
MMControl1.FileName = "d:\music\one.wav" '文件夾中的文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '播放文件
End Sub
Private Sub Option2_Click()
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "" '其他類型
MMControl1.FileName = "d:\music\two.mp3" '當前文件夾中的文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
End Sub
Private Sub Option3_Click()
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "AviVideo" 'Avi視頻格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗體當屏幕
MMControl1.FileName ="d:\music\thr.avi" '文件夾中的文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
End Sub