顺序播放的实现,急!
这是我写的一段实现顺序播放的代码:
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
With Me.ListBox1
If e.newState = WMPLib.WMPPlayState.wmppsMediaEnded And .Items.Count >= 1 Then
If .SelectedIndex = .Items.Count - 1 Then
Me.AxWindowsMediaPlayer1.URL = .Items(.Items.Count - 1)
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Else
.SetSelected(.SelectedIndex + 1, True)
If File.Exists(.SelectedItem) = True Then
Me.AxWindowsMediaPlayer1.URL = .SelectedItem
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Else
MessageBox.Show("系统没有找到" & .SelectedItem & ",该项将被删除!", "注意", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
.Items.Remove(.SelectedItem)
Me.AxWindowsMediaPlayer1.URL = .Items(.SelectedIndex + 1)
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
End If
Else
Exit Sub
End If
End With
End Sub
播放列表listbox里面保存的是每首歌的完整路径,当第一首歌播放完时,自动跳到第二首歌,并且播放。
可是列表仅仅是在上首歌播放完毕时,自动到下一首。但Me.AxWindowsMediaPlayer1.Ctlcontrols.play()不管用,没有在播放。
我用断点看看,Me.AxWindowsMediaPlayer1.URL 没有问题,就是play方法无效。
调试没有发现错误,大家看看怎么回事啊?