Ich erstelle gerade einen kleinen MediaPlayer mithilfe des WindowsMediaPlayer-Steuerelements. Ich habe zusätzlich eine Listview hinzugefügt als Playlist. Nun will ich dem MediaPlayer folgende Funktionen hizufügen:
-Wiedergabeliste durchspielen
-Repeat
-Zufälliger Titel aus der Wiedergabeliste
Nun habe ich eine Funktion hinzugefügt "Wiedergabeliste durchspielen" mit dem MediaEnded-Event mit folgenden Code:
Sobald das MediaEnded-Event eintritt wird der nächste Titel ausgewählt aber nicht abgespielt.
-Wiedergabeliste durchspielen
-Repeat
-Zufälliger Titel aus der Wiedergabeliste
Nun habe ich eine Funktion hinzugefügt "Wiedergabeliste durchspielen" mit dem MediaEnded-Event mit folgenden Code:
VB.NET-Quellcode
- If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
- If ListView1.SelectedIndices.Count > 0 Then
- Dim index As Integer = ListView1.SelectedIndices.Item(ListView1.SelectedIndices.Count - 1)
- Dim cnt As Integer = ListView1.SelectedIndices.Count
- ListView1.SelectedIndices.Clear()
- ListView1.Update()
- If index >= 0 And cnt > 0 Then
- If index < ListView1.Items.Count - 1 Then
- SelectItem(index + 1)
- Else
- SelectItem(0)
- End If
- End If
- ElseIf ListView1.Items.Count > 0 Then
- SelectItem(0)
- End If
- Try
- Dim i As Integer = 0
- For Each item As ListViewItem In ListView1.SelectedItems
- Dim titel As String = item.SubItems(0).Text
- Dim von As String = item.SubItems(1).Text
- Dim pfad As String = item.SubItems(2).Text
- AxWindowsMediaPlayer1.URL = pfad
- Me.Text = titel & "-" & von
- Next
- Catch
- End Try
- End If
Sobald das MediaEnded-Event eintritt wird der nächste Titel ausgewählt aber nicht abgespielt.