Question

在VB中采用wmp控件做的播放器不能自动播放下一个媒体

'相关代码如下：

Public Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
Call Command9_Click
End If
end sub

Private Sub Command9_Click()
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.Controls.stop
List1.Selected(List1.ListIndex + 1) = True
Call list1_dblclick

End Sub

Private Sub list1_dblclick()
WindowsMediaPlayer1.URL = ab & List1.Text
end Sub
'当一曲播放完后，列表中选中的媒体向下移动了一个，但是没有播放，debug显示playstate为10（准备就绪），在各个执行点添加wmp.ctl.play均不能解决，只能手动播放。请高手解答！解决后追分！
回1楼：
根据debug结果，wmp1.url没错，就是执行到最后无法自动执行play。
另外，我在form_load里加上了wmp.settings.autostart，也没用……

Answer 1

像用wmp播放一般都加个timer 检测是否停止！
Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = 1 Then
List1.ListIndex = List1.ListIndex + 1
WindowsMediaPlayer1.URL = List1.Text
End If
End Sub
Private Sub Command9_Click()
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.Controls.stop
List1.Selected(List1.ListIndex + 1) = True
End Sub

Private Sub list1_dblclick()
WindowsMediaPlayer1.URL = List1.Text
End Sub

Answer 2

那啥，你用个boolean变量，开始设置成false，检测到mediaend就设置成true，再加个判断块，检测到boolean变量为true和ready，就play()，然后把boolean改回false，个人觉得比用timer要好点

Answer 3

检查赋值给WindowsMediaPlayer1.URL的路径是否正确。。