媒体播放器无法播放列表框中的下一首歌曲

Question

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then

 ListBox1.SelectedIndex += 1

 AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

 AxWindowsMediaPlayer1.Ctlcontrols.play()
End If

它改变了列表框的索引，但它不播放下一个文件。 该文件存在，正常播放没有问题。 有谁知道怎么回事？

Answer 1

解决办法是必须加定时器"

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
  Dim item As Integer
  item = ListBox1.SelectedIndex
  If Form1.AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped Then
    Me.ListBox1.SelectedIndex = item + 1
    Form1.AxWindowsMediaPlayer1.URL = FileUrls(ListBox1.SelectedIndex)
    Timer1.Start()
  Else
    Timer1.Start()
  End If
end sub

以下代码也可以工作。首先将计时器添加到播放列表并通过以下代码

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) 处理 Timer1.Tick

    If Form1.AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped Then



        If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

               form1.axwindowmediaplayer1.url=listbox1.selectedindex
        Else
           'do nothing if no item to play 
        End If
    End If


End Sub