MCI多媒體空間（二）

12.3.1  MCI多媒體控件（2）

（3）MCI命令

MCI使用一套高級的、與設備無關的命令，稱爲媒體控制接口命令，可以控制多種媒體設備，表12-3給出MCI控件中使用的MCI命令。

表12-3  MCI命令

命    令	說    明
Open	打開MCI設備
Close	關閉MCI設備
Play	播放文件
Pause	暫停
Stop	停止MCI設備
Back	向後步進
Step	向前步進
Prev	跳到當前曲目的起始位置
Next	跳到下一首曲目的起始位置
Seek	更改媒體位置
Record	向前或向後查找曲目
Eject	彈出CD
Save	保存打開的文件

MCI控件命令的使用方法是通過控件的Command屬性來執行，例如：

AxMMContyrol1.Command  =  "Open"

上述語句表示打開指定的多媒體設備。對於命令及屬性的具體使用方法，將通過具體的實例來說明。

2．用MCI控件實現多媒體播放器

（1）創建一個項目類型爲VB.NET，模板爲Windows應用程序的項目Ch12_1。

（2）界面設計。

從工具箱中拖曳出一個MCI控件、一個PictureBox控件、兩個Button控件以及一個OpenFileDialog控件。設置窗體和控件的屬性，如表12-4所示，設計好的窗體如圖12-3所示。

表12-4  窗體屬性設置

控    件	屬    性	描    述
Form	Name	FrmMPlayer
	Text	我的播放器
AxMMControl	Name	mciPlayer
PictureBox	Name	picDisplay
Button	Name	btnOpenFile
	Text	打開文件
Button	Name	btnExit
	Text	退出

圖12-3  設計的播放器界面

（3）代碼設計，爲播放器添加播放AVI文件的功能。

在"打開文件"按鈕的Click事件中添加下面的代碼：

Private Sub btnOpenFile_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnOpenFile.Click
        Dim dlgOpen As New OpenFileDialog
        dlgOpen.Filter = "avi格式|*.avi"
        dlgOpen.Title = "打開媒體文件"
        If dlgOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
            mciPlayer.Command = "close"
            Select Case dlgOpen.FilterIndex
                Case 1
                    Me.mciPlayer.DeviceType = "avivideo"
                Case Else
                    MsgBox("無效的文件格式")
            End Select
            Me.mciPlayer.FileName = dlgOpen.FileName
            Me.mciPlayer.Command = "open"
            Me.mciPlayer.Command = "play"
        End If
    End Sub