12.3.1 MCI多媒体控件（2）

（3）MCI命令

MCI使用一套高级的、与设备无关的命令，称为媒体控制接口命令，可以控制多种媒体设备，表12-3给出MCI控件中使用的MCI命令。

表12-3 MCI命令

MCI控件命令的使用方法是通过控件的Command属性来执行，例如：

 
 

  
  
AxMMContyrol1.Command="Open"
 
 

上述语句表示打开指定的多媒体设备。对于命令及属性的具体使用方法，将通过具体的实例来说明。

2．用MCI控件实现多媒体播放器

（1）创建一个项目类型为VB.NET，模板为Windows应用程序的项目Ch12_1。

（2）界面设计。

从工具箱中拖曳出一个MCI控件、一个PictureBox控件、两个Button控件以及一个OpenFileDialog控件。设置窗体和控件的属性，如表12-4所示，设计好的窗体如图12-3所示。

表12-4 窗体属性设置

（3）代码设计，为播放器添加播放AVI文件的功能。

在"打开文件"按钮的Click事件中添加下面的代码：

 
 

  
  
PrivateSubbtnOpenFile_Click(ByValsenderAsSystem.Object,_ 
  
  
ByValeAsSystem.EventArgs)HandlesbtnOpenFile.Click 
  
  
DimdlgOpenAsNewOpenFileDialog 
  
  
dlgOpen.Filter="avi格式|*.avi"
  
  
dlgOpen.Title="打开媒体文件"
  
  
IfdlgOpen.ShowDialog=Windows.Forms.DialogResult.OKThen
  
  
mciPlayer.Command="close"
  
  
SelectCasedlgOpen.FilterIndex 
  
  
Case1 
  
  
Me.mciPlayer.DeviceType="avivideo"
  
  
CaseElse
  
  
MsgBox("无效的文件格式") 
  
  
EndSelect
  
  
Me.mciPlayer.FileName=dlgOpen.FileName 
  
  
Me.mciPlayer.Command="open"
  
  
Me.mciPlayer.Command="play"
  
  
EndIf
  
  
EndSub