此代码在列表框中播放下一首歌曲
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
If listTracks.SelectedIndex < listTracks.Items.Count - 1 Then
listTracks.SelectedIndex = 0
AxWindowsMediaPlayer1.URL = listTracks.Items(0)
AxWindowsMediaPlayer1.Ctlcontrols.play()
Else
listTracks.SelectedIndex = listTracks.SelectedIndex + 1
AxWindowsMediaPlayer1.URL = listTracks.Items(listTracks.SelectedIndex)
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
End if
我没有收到错误,但是下一首歌曲没有播放