Question

vb windowsmediaplayer控件自动播放下一首的问题

Private Sub WindowsMediaPlayer1_MediaChange(ByVal Item As Object)WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub WindowsMediaPlayer1_StatusChange()'自动循环播放If WindowsMediaPlayer1.playState = wmppsMediaEnded Then If List1.ListIndex < List1.ListCount - 1 Then List1.ListIndex = List1.ListIndex + 1 End If WindowsMediaPlayer1.URL = List1.TextEnd IfEnd Sub以上代码执行的时候，可以跳到下一首，但不会播放，如果把判断状态改成If WindowsMediaPlayer1.playState = 1 的话，还是不行。把mediachange事件里的WindowsMediaPlayer1.Controls.play写到下面的事件中也不行谁能给出完美实现这个功能的，show下代码也行

Answer 1

把StatusChange事件里的代码 放在PlayStateChange事件里试试