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