'相关代码如下：
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，也没用……
像用wmp播放一般都加个timer 检测是否停止！Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = 1 Then
List1.ListIndex = List1.ListIndex + 1
WindowsMediaPlayer1.URL = List1.Text
End IfEnd SubPrivate Sub Command9_Click()WindowsMediaPlayer1.Controls.pauseWindowsMediaPlayer1.Controls.stopList1.Selected(Li...
