WindowsMediaPlayer控件自动播放另外一首歌

Question

Private Sub WindowsMediaPlayer1_StatusChange()
        If WindowsMediaPlayer1.playState = 1 Then
                WindowsMediaPlayer1.URL = App.Path & "\test.mp3"
        End If
End Sub
程序打开的时候放了一首歌，播放完成后，为什么声音没有自动播放test.mp3呢？

Answer 1

'Playmusic(0)是一个副程序 在列表清单中从头播放第一首歌Private Sub Timer1_Timer()
   If WindowsMediaPlayer1.playState = wmppsStopped Or WindowsMediaPlayer1.playState = wmppsMediaEnded Then Call Playmusic(0)
End Sub