在 WPF 中使用 MediaElement 循环播放音频

Question

我正在用WPF开发一个视频播放器。（在VB中）

我已经创建了一个MediaElement，ListBox，“下一步”按钮，

然后通过读取ListBox开始播放，

并使用“下一步”跳到下一个音频/视频。

在“MediaEnded”事件中，我只需复制“下一步”按钮中的所有代码。

---

现在，问题来了，

假设列表框有四个音频（.mp3），“test1.mp3”，“test2.mp3”，……

现在播放的是“test1.mp3”，我按“下一步”按钮，那么现在播放的是“test2.mp3”。

但是，当我让“test1.mp3”播放完成时，我的播放器将不会播放“test2.mp3”，

而是随机播放“test3.mp3”或其他内容。

像“MediaEnded”事件这样的情况已处理多次。

---

Private Sub MediaElement1_MediaEnded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MediaElement1.MediaEnded

    nextmedia()

End Sub

---

Private Sub nextmedia()

    Try
        'pi is play index, start from 1, 0 is non playing
        If pi <> 0 Then
            If pi = ListBox_temp.Items.Count Then

                Dim filename As String = ListBox_temp.Items.Item(0).ToString
                MediaElement1.Source = New Uri(filename)
                pi = 1

            Else

                Dim filename As String = ListBox_temp.Items.Item(pi).ToString
                MediaElement1.Source = New Uri(filename)
                pi = pi + 1

            End If
        End If

    Catch ex As Exception

    End Try
    Window1.Title = "Video Sampler - " + CStr(pi) + ". " + CStr(ListBox1.Items.Item(pi - 1))
End Sub

---

谁能帮我....

Answer 1

我还没有测试过，但请尝试以下操作。

Try 
    pi = If(pi < ListBox_temp.Items.Count - 1, pi + 1, 0)
    Dim filename As String = ListBox_temp.Items.Item(pi).ToString 
    MediaElement1.Source = New Uri(filename) 
Catch ex As Exception
End Try

除非选择了最后一个 ListBoxItem，否则它会递增 pi，在这种情况下，会将其设置为零。