MMControl控件

 认识MMControl控件

MMControl控件包含一组高层次的独立于设备的命令，通过这些命令可以控制音频和视频等外围设备，包括CD、VCD、WAV、MIDI、AVI等。

MMControl控件属于ActiveX控件，使用前应首先将其添加到工具箱中。选择“工程”/“部件”命令，打开“部件”对话框，选择Microsoft Multimedia Control 6.0 SP3），单击“确定”按钮将其添加到工具箱中，在工具箱中双击 图标，即可将其添加到窗体上，添加过程如图1所示。

图1  MMControl控件添加过程

从上图可以看出，窗体上的MMControl控件，由多个按钮组成，这些按钮从左到右依次是：起始点、终止点、播放、暂停、后退、前进、停止、录制和弹出。它们的功能是管理MCI设备和播放音频或视频文件。

MMControl控件的属性

1.Command属性

用于指定将要执行的MCI命令，以控制播放、存储多媒体文件谇，这些命令及功能如表1所示。

表1                              MCI命令

命令	功能
Open	打开MCI设备
Close	关闭MCI设备
Play	用MCI设备进行播放
Pause	暂停播放或录制
Stop	停止MCI设备
Back	向后步进可用的曲目
Step	向前步进可用的曲目
Prev	使用Seek命令跳到当前曲目的起始位置。若在前一Prev命令执行后3s内再次执行，则跳到前一曲目的起始位置；若已在第一个曲目，则跳到第一个曲目的起始位置
Next	使用Seek命令跳到下一个曲目的起始位置。若已在最后一个曲目，则跳到最后一个曲目的起始位置
Seek	向前或向后查找曲目
Record	录制MCI设备的输入
Eject	从CD驱动器中弹出音频CD
Save	保存打开的文件

实际编程中，常用命令为open、play和close。例如：

打开一个多媒体文件：

 

MMControl1.FileName = "filename"

MMControl1.Command = "open"

 

上述代码中的filename是指定要打开的文件多媒体文件名及路径，如果需要自动识别该路径，可将多媒体文件放在工程所在的文件夹，然后使用App.Path。

播放多媒体文件：

 

MMControl1.Command = "Open"

 

关闭多媒体文件：

 

MMControl1.Command = "Close"

 

例  窗体加载时，播放背景音乐，窗体卸载时，关闭背景音乐，代码如下。

Private Sub Form_Load()

  '播放背景音乐

  With MMControl1

      .Visible=False                                                      '设置MMControl1控件不可见

      .FileName = App.Path & "\back\mr.wav"               '指定声音文件

      .Command = "Open"                                            '打开多媒体文件

      .Command = "play"                                              '播放多媒体文件

  End With

End Sub

Private Sub Form_Unload (Cancel as Integer)

   Form1.MMControl1.Command = "Close"                    '关闭多媒体文件

End Sub

2.DeviceType属性

指定要打开的MCI设备的类型，这些类型及说明如表2所示。

表2                     DeviceType属性设置值

设备类型	设置值	文件类型	说明
CD audio	cdaudio	-	音频CD播放器
Digital Audio Tape	dat	-	数字音频磁带播放器
Digital video(not GDI-based)	DigitalVideo	-	窗口中的数字视频
Other	Other	-	未定义MCI设备
Overlay	Overlay	-	覆盖设备
Scanner	Scanner	-	图像扫描仪
Sequencer	Sequencer	.mid	音响设备数字接口（MIDI）序列发生器
Vcr	VCR	-	视频磁带录放器
AVI	AVIVideo	.avi	视频文件
VCD	mpegVideo	.dat	视频文件
videodisc	Videodisc	-	视频播放器
waveaudio	Waveaudio	.wav	播放数字波形文件的音频设备

DeviceType属性一般可以不设置，但是以下两种情况必须设置。

（1）播放CD、VCD时，必须指定设备类型。

（2）如果文件的扩展名没有指定将要使用的设备类型，那么打开复杂MCI设备时也必须指定设备类型。

3.TimeFormat属性

用来指定所有位置信息所使用的时间格式，其设置值为0～10，如表3所示。

表3                 TimeFormat属性的设置值

值	常量	说明
0	mciFormatMilliseconds	毫秒数用四字节整数变量保存
1	mciFormatHms	小时数、分钟数和秒数被压缩到一个四字节整数中。从最低有效字节到最高有效字节，这四个数分别是：小时数（最低有效字节）/分钟数/秒数/未使用（最高有效字节）
2	mciFormatMsf	分钟数、秒数和帧被压缩到一个四位的整数中。从最低有效字节到最高有效字节，这四个数分别是：分钟数（最低有效字节）/秒数/帧/未使用（最高有效字节）
3	mciFormatFrames	帧用四字节的整数变量保存
4	mciFormatSmpte24	24-帧SMPTE将以下数值压缩到一个四字节的整数中。从最低有效字节到最高有效字节，这四个数分别是：小时数（最低有效字节）/分钟数/秒数/帧（最高有效字节）SMPTE（动画和电视工程师协会）时间是一种绝对的时间格式，它按小时数、分钟数、秒数和帧的格式显示。标准的SMPTE的分度类型有24、25和30帧每秒
5	mciFormatSmpte25	25-帧SMPTE按照与24-帧SMPTE相同的顺序将数据压缩到一个四字节变量中
6	mciFormatSmpte30	30-帧SMPTE按照与24-帧SMPTE相同的顺序将数据压缩到一个四字节变量中
7	mciFormatSmpte30Drop	30-放下-帧SMPTE按照与24-帧SMPTE相同的顺序将数据压缩到一个四字节变量中
8	mciFormatBytes	字节数用四字节整数变量保存
9	mciFormatSamples	示例用四字节整数变量保存
10	mciFormatTmsf	曲目、分钟数、秒数和帧被压缩到一个四字节整数中。从最低有效字节到最高有效字节，它们分别是：曲目（最低有效字节）/分钟数/秒数/帧（最高有效字节）

3.From属性

指定开始播放文件或录制文件的开始时间。

4.To属性

与From属性对应，指定播放文件或录制文件的结束时间。

5.Position属性

该属性用于返回正在播放的多媒体文件的位置，时间单位由TimeFormat属性决定。

6.Length属性

用于规定打开的MCI设备上多媒体文件的总体播放长度，时间单位由TimeFormat属性决定。

7.Start属性

该属性指定当前正在播放的多媒体文件的起始位置，时间单位由TimeFormat属性决定。

8.Mode属性

返回打开的MCI设备的当前模式，其设置值如表4所示。

表4                                                 Mode属性的设置值

值	常数/设备模式	说明
524	mciModeNotOpen	设备没有打开
525	mciModeStop	停止
526	mciModePlay	正在播放
527	mciModeRecord	正在录制
528	mciModeeek	正在搜索
529	mciModePause	暂停
530	mciModeReady	设备准备好

 

例  播放背景音乐，并显示当前状态。

（1）启动VB，新建一个工程，将MMControl控件添加到工具箱中。

（2）在窗体上添加一个MMControl控件和一个Label控件，均使用默认名称。

（3）切换到代码窗口，编写如下代码。

 

Private Sub Form_Load()

  With MMControl1

      .FileName = App.Path & "\back\mr.wav"                      '指定多媒体文件

      .Command = "Open"                                                   '打开多媒体文件

      .Command = "play"                                                     '播放多媒体文件

  End With

End Sub

'显示播放状态

Private Sub MMControl1_StatusUpdate()

  Select Case MMControl1.Mode

    Case 524

      Label1.Caption = "设备没有打开"

    Case 525

      Label1.Caption = "停止"

    Case 526

      Label1.Caption = "正在播放"

    Case 527

      Label1.Caption = "正在录制"

    Case 528

      Label1.Caption = "正在搜索"

    Case 529

      Label1.Caption = "暂停"

    Case 530

      Label1.Caption = "设备准备好"

  End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

   Form1.MMControl1.Command = "Close"                           '关闭正在播放的多媒体文件

End Sub

按F5键，运行程序，结果如图2所示。

图2 播放WAV

9.Track属性

表示当前MCI设备上可用的曲目个数。例如播放CD时，显示当前曲目编号。

 

Private Sub MMControl1_StatusUpdate()

  Label2.Caption = "当前曲目：" & Str$(MMControl1.Track)                              '显示当前曲目

End Sub

&说明：如果要获得总曲目数，可以使用Tracks属性。

10.Error和ErrorMessage属性

使用Error和ErrorMessage属性，可以处理MMControl控件产生的错误。在每个命令后可以检查错误情况。例如，在Open命令之后，可用下面的代码检查Error属性的值，以判断是否存在CD驱动器。如果没有可用的CD驱动器，则返回错误信息。例如：

 

If Form1.MMControl1.Error Then

   MsgBox Form1.MMControl1.ErrorMessage,vbCritical, "未安装CD播放器或CD播放器不能正常工作"

End If

MMControl控件的事件

1．ButtonClick事件

当用户单击MMControl控件的各个命令按钮时，发生该事件。下面给出命令按钮所对应的事件，如表5所示。

表5                              Mode属性的设置值

命令按钮	说明	事件
	倒带	MMControl1_PrevClick
	快进	MMControl1_NextClick
	步进	MMControl1_StepClick
	回倒	MMControl1_BackClick
	暂停	MMControl1_PauseClick
	播放	MMControl1_PlayClick
	录音	MMControl1_RecordClick
	停止	MMControl1_StopClick
	弹出	MMControl1_EjectClick

 

例  单击“弹出”按钮，提示光盘弹出，代码如下。

 

Private Sub MMControl1_EjectClick(Cancel As Integer)

  MsgBox "光盘弹出！"

End Sub

2．StatusUpdate事件

按照按UpdateInterval属性所给定的时间间隔自动地发生。这一事件允许应用程序更新显示，以通知用户当前MCI设备的状态。

3．Done事件

当Notify属性为True，MCI命令结束时发生Done事件，该事件有一个参数NotifyCode，该参数表示MCI命令是否成功，其设置值如表6所示。

表6                     NotifyCode参数的设置值

值	常量	说明
1	mciSuccessful	命令成功的执行
2	mciSuperseded	命令被其它命令所替代
4	mciAborted	命令被用户中断
8	mciFailure	命令失败

 

例  当播放完多媒体文件时，将触发MMControl控件的Done事件，在该事件下将MMControl控件的“暂停”和“停止”按钮设置为不可用，代码如下。

 

Private Sub MMControl1_Done(NotifyCode As Integer)

  MMControl.StopEnabled = False: MMControl.PauseEnabled = False             '“暂停”和“停止”按钮不可用

End Sub