利用VB开发CAI课件

   MMControl1.DeviceType = "WaveAudio"

   MMControl1.filename =  "文件名.wav"

   MMControl1.Shareable = False

   MMControl1.Notify = True

   MMControl1.Command = "open"

   MMControl1.Command = "prev"

   MMControl1.Command = "play"

End If

End Sub

'===========================================

'如果解说已播放结束,则关闭媒体播放器