回 帖 发 新 帖 刷新版面

主题:MMControl1

以下代码为什么第1次点击Command2可以播放,第2次就不行
退出重新运行还是第1次点击Command2可以播放,第2次就又不行?
不知道为什么请帮帮忙!

Private Sub Form_Load()
MMControl1.DeviceType = "waveaudio"
MMControl1.filename = App.Path & "\wav\1.wav"
MMControl1.Command = "open"
End Sub

Private Sub Command2_Click()
MMControl1.Command = "play"
End Sub

回复列表 (共4个回复)

沙发

第一首播放完后要关闭设备,再播放第二首

板凳

Private Sub Command2_Click()
MMControl1.Command = "play"
MMControl1.Command = "close"
End Sub

是这样吗?怎么不行?

3 楼

呵呵,你刚开始播放又关闭了,当然不行。

Private Sub MMControl1_Done(NotifyCode As Integer)
If NotifyCode = 1 Then 'NotifyCode = 1为播放完毕
   MMControl1.Command = "stop"
   MMControl1.Command = "close"
End If
End Sub

另外,你可能会用到MMControl1.Mode属性的值,它表示:
524未打开设备,525停止,526正在播放,527录音,528查找,529暂停,530就绪

4 楼

谢谢

我来回复

您尚未登录,请登录后再回复。点此登录或注册