Private Sub Timer1_Timer() If MMControl1.Mode = 525 Then '525状态为播放完毕 MMControl1.DeviceType = "waveaudio" MMControl1.filename = "your.file" MMControl1.Command = "open" MMControl1.Command = "play" end if end sub
我试了一下,还是不行啊,我用的如下代码,这个控件可以波MP3吧 我单独播了一下是可以地,是不是TIMER需要什么设置? Private Sub bgt_Timer() If bg.Mode = 525 Then bg.FileName = App.Path & "\svm\鞭子1.mp3" bg.Command = "open" bg.Command = "play" End If End Sub
end if
end sub
我单独播了一下是可以地,是不是TIMER需要什么设置?
Private Sub bgt_Timer()
If bg.Mode = 525 Then
bg.FileName = App.Path & "\svm\鞭子1.mp3"
bg.Command = "open"
bg.Command = "play"
End If
End Sub