Question

VB中的MMControl有啥属性

正在编程序，必须用到mmcontrol，解释一下主要属性

Answer 1

属性：
Enabled/Visible属性：
每个按钮都对应一个Enable/Visiable属性，如MMControl1.PlayEnable=True MMControl1.PauseVisibel=false。（可以加载时使该控件不可见，通过设置自己想要的按钮来实现播放器）
Command属性：
常用命令为open,打开MCI设备、play,用MCI设备进行播放、close：关闭MCI设备
TimeFormat属性
用来指定所有位置信息所使用的时间格式。常用：mciFormatMilliseconds，值为0：毫秒数用四字节整数变量保存。mciFormatFrames，值为3：帧用四字节的整数变量保存
Length属性
用于规定打开的MCI设备上多媒体文件的总体播放长度，时间单位由TimeFormat属性决定
Position属性
用于返回正在播放的多媒体文件的位置，时间单位由TimeFormat属性决定。（可用在进度条上反映歌曲播放进度）
Notify属性
决定MMControl控件的下一条命令执行后，是否产生回调事件（Done事件)。为True则产生。每一次Notify属性仅对一条MCI 控制命令有效
事件：
每个按钮对应一个事件。如MMControl1_BackClick
Done事件。当Notify属性为True，MCI命令结束时发生Done事件

示例：播放音乐，并求得歌曲长度
Private Sub Form_Load()
MMCtl.FileName = "d:\1.wma"
MMCtl.TimeFormat = 0'毫秒数用四字节整数变量保存

MMCtl.Command = "open"'打开MCI设备

lblSongLen.Caption = "歌曲长度为：" & CStr(MMCtl.Length / 1000 / 60) & "秒"
'设置timeformat为毫秒,求歌曲时间长度

MMCtl.Command = "play"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMCtl.Command = "close"
End Sub