Wiedergabe einer Playlist aus einer Listview für das WindowsMediaPlayer-Steuerelement

kingsunil2000 · 11. Oktober 2014, 18:05

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:

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.

kingsunil2000 · 11. Oktober 2014, 18:55

P.S.

wie gehen die anderen Funktionen?

ErfinderDesRades · 11. Oktober 2014, 19:03

Tipp: Einfacher antworten kann man, wenn in einem Thread eine neue Frage erst gestellt wird, wenn die vorherige erledigt ist - ich zB. weiß jetzt nicht mehr sicher was gefragt ist.
Zu deim Code könnte ich schon was sagen, von "den anneren Funktionen" - was immer damit gemeint sein mag - verstehe ich nix.

kingsunil2000 · 11. Oktober 2014, 19:04

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:

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.

ErfinderDesRades · 11. Oktober 2014, 19:09

Das wahrscheinlichste ist, dass da ein Fehler auftritt.
Entferne mal den TryCatch, weil der verhindert, dass du den Fehler angezeigt bekommst.

kingsunil2000 · 11. Oktober 2014, 19:15

Trotz des Entfernens des TryCatchs kommt kein Fehler.

ErfinderDesRades · 11. Oktober 2014, 19:51

Dann weiß ich auch nicht - wie startest du denn den Mediaplayer, dass er spielt?

kingsunil2000 · 11. Oktober 2014, 20:13

axwindowsmediaplayer1.url = pfad

ErfinderDesRades · 11. Oktober 2014, 20:27

ah - vlt. stimmt der pfad nicht - was steht denn beispielsweise in pfad?

ansonsten hab ich mal MSDN zum Thema befragt, da steht tatsächlich ein entsprechender Hinweis.

Aber was steht denn nu bei dir in pfad?

kingsunil2000 · 11. Oktober 2014, 20:31

Von der Listview ein item, das ausgewählt ist.

Dim pfad As String = item.SubItems(2).Text

ErfinderDesRades · 11. Oktober 2014, 22:58

ich weiß, aber was da drin steht ist meine Frage.
Da steht doch nicht Von der Listview ein item, das ausgewählt ist, sondern iein pfad - welcher Pfad?
Denn Von der Listview ein item, das ausgewählt ist ist ja wohl kaum ein pfad, den der Mediaplayer abspielen kann, oder?

ChOoSeMyNaMe · 11. Oktober 2014, 23:35

Hau mal nen Haltepunkt da rein, wo der Pfad seinen Wert bekommt. Dann öffne das Lokal bzw. Auto-Fenster(Debugging>Fenster) und guck, was in deinem Pfad drinsteht. Eventuell Noch ein paar Einzelprozedur-Schritte machen. LG

ErfinderDesRades · 12. Oktober 2014, 00:32

stimmt - vlt weisser garnet, wie man einen Haltepunkt setzt, und zur Laufzeit den Inhalt von Variablen nachguckt:
VisualStudio richtig nutzen (Google ist nicht deine Mami)

kingsunil2000 · 12. Oktober 2014, 12:48

Es soll so sein: axmediaplayer.URL = pfad also als Beispiel: axmediaplayer.URL = "C:\Test.mp3" .
Das funktioniert auch, nur leider bei dem Event (also wenn die Datei zu ende ist) nicht.

Aber ich habe auch einen Button, der den nächsten Titel abspielt. Aber der funktioniert und eigentlich sollte es auch genauso mit dem MediaEnded-Event ablaufen.
Aber wie schon gesagt, bei dem MediaEnded-Event ,wird der nächste Titel der Listview selektiert, aber nicht abgespielt.

ChOoSeMyNaMe · 12. Oktober 2014, 14:20

kingsunil2000 schrieb:

AxWindowsMediaPlayer1.URL = pfad
Me.Text = titel & "-" & von

Also ich bin ja kein Experte, aber sollte man dann nicht noch folgendes schreiben?

VB.NET-Quellcode

AXWindowsMediaPlayer1.Play()

Habe ich von Windows Media Player Control einsetzen LG
Edit: Zwar etwas Offtopic, aber warum benutzt du überhaupt so einen langen Namen für den Player? Benenne ihn doch um in sowas wie "wmPlayer". LG

ErfinderDesRades · 12. Oktober 2014, 14:25

@TE: Hast du die Mediaplayer-Doku inne MSDN mal konsultiert?

Oder kein Interesse dadran?

kingsunil2000 · 12. Oktober 2014, 17:02

Oder wie kann man ein Event in einem Event aufrufen?
Also
In axmediaplayer_playstatechange ein Listview_doubleclick

kingsunil2000 · 12. Oktober 2014, 17:37

Ich wusste mal wie das geht habe es aber vergessen.

kingsunil2000 · 12. Oktober 2014, 18:45

Hat jemand eine Idee

ErfinderDesRades · 12. Oktober 2014, 19:12

sowas demoralisiert mich, dass du keine Anstalten machst, die Dokumentation heranzuziehen, aber von uns wünschst, erklärt zu bekommen, wies funktioniert.
Stattdessen ignorieren.
Man kann aber eiglich nicht programmieren, wenn man nicht bereit ist, die Dokumentation zu lesen.

Wiedergabe einer Playlist aus einer Listview für das WindowsMediaPlayer-Steuerelement

Wiedergabe einer Playlist aus einer Listview für das WindowsMediaPlayer-Steuerelement

VB.NET-Quellcode

VB.NET-Quellcode

kingsunil2000 schrieb:

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben