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
Form	Text	我的播放器
AxMMControl	Name	mciPlayer
PictureBox	Name	picDisplay
Button	Name	btnOpenFile
Button	Text	打开文件
Button	Name	btnExit
Button	Text	退出

图12-3 设计的播放器界面

（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

MCI多媒体空间（二）

猜你在找的VB相关文章