Private Sub mnuopen_Click() ’当点击菜单中的打开时执行
'在未选择文件时,文件名为空字符,播放菜单不可用
mnuplay.Enabled =False
CommonDialog1.FileName = ""
'下面语句设置文件过滤方式,可显示扩展名为 avi,dat,wav 和 mid 文件
CommonDialog1.Filter = "(*.avi)|*.avi|(*.wave)|*.wav|(vcd
*.dat)|*.dat|(midi *.mid)|*.mid"
'初始化文件过滤方式为*.avi
CommonDialog1.FilterIndex = 1
'建立打开方式的通用对话框,也可使用 commondialog1.showopen
CommonDialog1.Action = 1
'打开一个文件前先关闭前一次被打开的多媒体设备
MMControl1.Command = "close"
Select CommonDialog1.FilterIndex
Case 1 '选择*.avi
'设置多媒体设备类型为 avividio
MMControl1.DeviceType = "avividio"
'设置时间格式为帧
MMControl1.TimeFormat = 3
'设置播放的文件为通用对话框中选择的文件
MMControl1.FileName = CommonDialog1.FileName
'打开文件
MMControl1.Command = "open "
Case 2 '选择*.wav
'设置多媒体设备类型为 waveaudio
MMControl1.DeviceType = "waveaudio"
'设置时间格式为帧
MMControl1.TimeFormat = 3
'设置播放的文件为通用对话框中选择的文件
MMControl1.FileName = CommonDialog1.FileName
'打开文件
MMControl1.Command = "open "