UC知道等待mp3播放完后再运行的代码
来源：百度知道 编辑：UC知道 时间：2024/06/23 12:46:56
我用WindowsMediaPlayer1
Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\music.mp3"
End Sub
播放一个mp3，我想让mp3播放完毕后再接着运行，请问怎么做啊，我是菜鸟请给出代码
Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\music.mp3"
End Sub
播放一个mp3，我想让mp3播放完毕后再接着运行，请问怎么做啊，我是菜鸟请给出代码
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
End Sub
里加入相应代码就可以咯
Private Sub Form_Load()
do while 1
WindowsMediaPlayer1.URL = App.Path & "\music.mp3"
loop
End Sub
如何？