使用MMControl控件很容易播放音视频,新建一工程,在左边工具栏空白处按鼠标反键,选择“部件-Microsoft Multimedia Control 6.0”,工具栏中会出现一MMControl图标,将其拖入窗体中,将鼠标移到窗体中的MMControl1控件上,按鼠标反键,在文件名中选件要播放的音乐,然后输入如下代码(希望你能以此类推,完成你想要的功能):
Private Sub Form_Load()
MMControl1.Notify = False
'媒体控件暂时不响应命令执行完事件
= "open"
'打开媒体控件
= "play"
'播放音乐
MMControl1.Notify = True
'让媒体控件响应命令结束事件,以确保音乐播完取得控制权
End Sub
Private Sub MMControl1_Done(NotifyCode As Integer)
MsgBox "音乐结束"
End Sub