VB是微軟公司開發(fā)的32位Window開發(fā)工具軟件，它控制多媒體的手段靈活和多樣，如在VB 中調(diào)用Multimedia MCI控件就容易實現(xiàn)集成音樂和視頻。
　　一、Multimedia MCI控件的調(diào)用及說明

　　在調(diào)用Multimedia MCI控件之前，須要執(zhí)行“工程\部件”菜單命令，將Microsoft Multimedia Controls前的方框選中，在工具箱中便會出現(xiàn)Multimedia 控件圖標。把 Multimedia 控件添加到窗體上。當你打開有效的多媒體設(shè)備并且控件可用時,系統(tǒng)會自動完成相應(yīng)工作。按鈕被分別定義為：Prev、 Next、 Play、 Pause、 Back、 Step、 Stop、 Record 和 Eject。你可以為某一個按鈕編寫程序，從而為其增加特殊功能，但一般情況，缺省的按鈕功能就能很好地播放音樂和視頻。
　　在引用控件時，你須要指定控件的Device Type 屬性，也可以缺省，對于復(fù)雜的MCI設(shè)備和播放CD音樂你必須要說明。格式是MMControl1.Device Type=Devname。下表列出了Multimedia控件支持的多媒體設(shè)備。
　　在Multimedia控件中非常有用的一個屬性是Command，它在運行過程中向多媒體設(shè)備發(fā)出命令。格式是：MMControl.Command = cmdstringS,其中cmdstringS變量與每一個按鈕的定義名稱一致。此外，還有Mode、Wait、Shareable、Notify、UpdateInterval、Position、Length等屬性和Done、StatusUpdate事件是我們經(jīng)常用到的。
　　二、示例程序

　　下面是一個用Multimedia控件集成音樂和視頻的應(yīng)用程序，它可播放＊.wav、＊.mid、＊.avi文件，可顯示打開文件的時間長度和在播放時的進度，并在狀態(tài)欄里有相關(guān)的說明。編程如下：
　　1．設(shè)計窗體
　　新建工程，在部件中分別引入Multimedia控件、Common Dialog Control 、Windows Common Control，在窗體中分別加入CommonDialog、MMControl、Slider、Status Bar、CheckBox。Label（1－3）分別放在Slider 下的左端、中間和右端，并在窗體上加一個菜單。將Slider的SelectRange的復(fù)選框選定，設(shè)置Smallchange和Maxchange為10，TickFrequengcy為20。在Status Bar的屬性中的Panels項用鼠標點擊Insert Panels 5 次。Index有5項，在Index第一項、第三項的Text項中分別輸入“剩余時間”、“總時間”，適當設(shè)置每一項的Minimun Width(可參見后面對Panels的控制)。將CheckBox的Caption改為“循環(huán)”，把3個Label的Caption都改為空字符串。最后進入菜單編輯器，設(shè)置標題為“文件”，名稱MnuFile；在“文件”下設(shè)立子菜單標題分別為“＆Open”、“＆Close”、“＆Exit”，名稱分別為MnuOpen、MnuClose、MnuExit（在MnuExit_Click()事件填完代碼后，要將其設(shè)為無效）。設(shè)計后如圖1所示。

　　2．控件代碼

　　本示例的源程序如下：
　　Private Sub MnuOpen_Click()
　　′ 設(shè)定打開文件類型
　　CommonDialog1.Filter = ″MIDI音樂序器＊.mid|＊.mid|聲音＊.wav|＊.wav|Widows視頻＊.avi|＊.avi″
　　CommonDialog1.ShowOpen
　　MMControl1.Notify = False
　　MMControl1.Wait = True
　　MMControl1.Shareable = False
　　′由系統(tǒng)默認設(shè)備類型
　　MMControl1.DeviceType = ″″
　　MMControl1.filename = CommonDialog1.filename
　　′ 打開 MCI 設(shè)備。
　　MMControl1.Command = ″Open″
　　MnuClose.Enabled = True
　　Slider1.Visible = True
　　End Sub
　　Private Sub MMControl1_StatusUpdate()
　　On Error GoTo Erropen
　　′設(shè)置文件長度以毫秒形式返回，
　　MMControl1.TimeFormat = 0
　　Slider1.Max = MMControl1.Length ／ 1000
　　If MMControl1.Position <> MMControl1.Length Then
　　Slider1.Value = MMControl1.Position ／ 1000
　　Else
　　MMControl1.Command = ″Prev″
　　Slider1.Value = 0
　　End If
　　′調(diào)用Tstring函數(shù)計算剩余時間和總時間
　　StatusBar1.Panels(2) = Tstring(MMControl1.Length － MMControl1.Position)
　　StatusBar1.Panels(4) = Tstring(MMControl1.Length)
　　Label1.Caption = ″00:00″
　　Label2.Caption = Tstring(MMControl1.Length ／ 2)
　　Label3.Caption = Tstring(MMControl1.Length)
　　′ 由Mode返回不同值并在狀態(tài)欄經(jīng)出相應(yīng)的提示
　　Select Case MMControl1.Mode
　　Case 524
　　StatusBar1.Panels(5) = ″ 未打開設(shè)備……″
　　Case 525
　　StatusBar1.Panels(5) = ″停止狀態(tài)……″
　　Case 526
　　StatusBar1.Panels(5) = ″正在播放……″ ＆ CommonDialog1.FileTitle
　　Case 527
　　StatusBar1.Panels(5) = ″正在錄音……″
　　Case 528
　　StatusBar1.Panels(5) = ″正在搜索……″
　　Case 529
　　StatusBar1.Panels(5) = ″暫停播放……″
　　Case 530
　　StatusBar1.Panels(5) = ″設(shè)備就緒……″
　　End Select
　　Erropen:
　　′ 放棄打開文件
　　End Sub
　　′ 自定義將毫秒轉(zhuǎn)化為分、秒Tstring函數(shù)
　　Private Function Tstring(sm As Long) As String
　　s = (sm ／ 1000 ／ 60) Mod 60
　　m = (sm ／ 1000) Mod 60
　　Tstring = Format(s, ″00″) ＆ ″;″ ＆ Format(m, ″00″)
　　End Function
　　Private Sub MMControl1_Done(NotifyCode As Integer)
　　MMControl1.UpdateInterval = 100 ′ 間隔100毫秒
　　End Sub
　　Private Sub MnuClose_Click()
　　MMControl1.Command = ″Close″
　　MnuClose.Enabled = False
　　End Sub
　　Private Sub MnuExit_Click()
　　MMControl1.Command = ″Close″
　　End
　　End Sub
　　Private Sub Check1_Click()
　　If Check1.Value = 1 Then
　　MMControl1.Command = ″Play″ ′ 繼續(xù)播放
　　End If
　　End Sub
　　此外，欲在當前窗口播放＊.avi文件，可在窗體加一個PictureBox，在Private Sub MMControl1_StatusUpdate()中加入MMControl1.hWndDisplay = Picture1.hWnd一句。運行時如圖2。
（本程序在VB5.0，PⅡ350中通過）