多媒体播放器

MMControl1.TimeFormat = 0 ‘设置时间格式为微秒
End Sub
例题：利用MMControl多媒体控件播放VCD 演示：
设计：
事件过程与代码：
在“选择曲目”按钮单击事件中，代码如下：
Private Sub Command1_Click() CommonDialog1.Action = 1
在进入Visual BASIC开发环 境时，MMControl多媒体 控件并不存在于工具箱中，
需要自己动手将它添加工
具箱中。在“工程”菜单
中，单击“部件”，或在 工具箱上单击右键，然后
从弹出的快捷菜单中选择
“部件”，在出现的“部
件”对话框中，选择多媒 体控件Microsoft Mltimedia Control 6.0，单 击“确定”按钮。如图。
话框
‘将通用对话框设置为打开文件对
Label1.Caption = "正在播放的曲目是：" + CommonDialog1.FileName MMControl1.DeviceType = "MpegVideo" ‘打开设备类型是VCD设备
MMControl1.FileName = CommonDialog1.FileName
mydrive(11) = "h:"
For i = 0 To 11 ChDir (mydrive(i)) '更改当前路径 On Error GoTo try ‘在发生错误时，转到try程序块执行错误处理程序
Next
try:
mydir = mydrive(i - 1) + "\mpegav\" Vcdname = Dir(mydir, vbNormal) ‘用Dir函擞指定文件名字符串 MMControl1.DeviceType = "MpegVideo" ‘
第六讲 多媒体播放器
多媒体控件：
MCI（Media Control Interface ）是微软定义的多媒体接口标准， 它为多种多媒体设备提供了一个公用接口。该MCI接口包括 了CDAudio、Scanner、WaveAudio等多媒体设备。多媒体控件 （MMControl）可以通过MCI接口对媒体设备进行控制。
mand = "open"
mand = "play"
End Sub 在“自动播放”按钮事件中，定义一个数组变量来存放可能的驱动器，
代码如下：
Private Sub ) As String
Dim i As Integer
Dim mydir As String,Vcdname As String
On Error Resume Next
‘忽略错误，转到发生错误的下一条语句
mydrive(0) = "d:"
mydrive(1) = “e:” ： mydrive(2) = "f:" mydrive(3) = “g:“ ： mydrive(4) = "h:" mydrive(5) = “i:” ： mydrive(6) = "j:" mydrive(7) = “k:” ： mydrive(8) = "l:" mydrive(9) = “m:“ ： mydrive(10) = "n:"
将MMControl控件放置在窗体上，如右图所示， 其外形与录音机上的按键很相似，且各按 键操作起来也相同。
例题： 利用MMControl多媒体控件设计CD播放器 演示： 设计： 事件与代码：
Private Sub Form_Load()
MMControl1.Notify = False
‘多媒体设备不需要确认打开
表15.1中例出了常见的MCI设备类型。
表15.1 MCI设备类型
设备类型
说明
Animation
动画设备
AVIVideo
数字影像
CDAudioCD
声音播放器
Da
t数字音频磁带播放器
WaveAudio SequencerMIDI
播放数字形文件的音频设备 序列化器
MpegVideoVCD
播放器
VCR
录像机或放像机
MMControl1.Shareable = False ‘多媒体不可共享地打开
MMControl1.Wait = True ‘多媒体打开完成后返回应用程序
MMControl1.DeviceType = "CDAudio" ‘打开设备类型是CD设备
mand = "open" ‘打开设备
MMControl1.TimeFormat = 3
MMControl1.FileName = mydir + Vcdname
mand = "Open"
mand = "Play" Label1.Caption = "现在是自动播放"
End Sub
在“退出”命令按钮事件中，代码如下： Private Sub Command3_Click()
mand = "close" End End Sub
练习： 设计一个多媒体播放器，能够播放有声音的AVI，并
可静音播放和重复播放。 演示： 参考设计：