Guten Tag allerseits,
ich habe folgendes Problem. Ich habe einen Code gebastelt, über den man steuern kann, ob ein Musiktitel oder die ganze Playlist wiederholt (oder eben nicht wiederholt) wiedergegeben wird. In
Folgende Probleme:
(1) Wenn
(2) Wenn
Hier mein Code:
Ich hoffe ich hab das ausführlich genug beschrieben, wenn nicht bitte kurz melden
ich habe folgendes Problem. Ich habe einen Code gebastelt, über den man steuern kann, ob ein Musiktitel oder die ganze Playlist wiederholt (oder eben nicht wiederholt) wiedergegeben wird. In
HilfslisteDateinamen
sind dabei die den entsprechenden Dateinamen der Titel aus der Playlist lstPlaylist
gespeichert.Folgende Probleme:
(1) Wenn
Wiederholen = "Nein"
dann springt der Index zwar zum nächsten Titel, und es kommt die MessageBox, dass der Titel abgespielt wird und wird dann abgespielt, doch nach dem drücken von OK kommt die Messagebox nochmal und die Wiedergabe hört dann wieder auf.(2) Wenn
Wiederholen = "Track"
oder Wiederholen = "Alles"
wird der entsprechende Index auch richtig ausgewählt und es kommt die MessageBox, dass der richtige Titel abgespielt wird, jedoch wird nix abgespielt und der das WMP Control Player
bleibt stumm.Hier mein Code:
VB.NET-Quellcode
- Private Sub Player_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles Player.PlayStateChange
- If Player.playState = WMPLib.WMPPlayState.wmppsPlaying Then
- Timer1.Start()
- TrackBar1.Maximum = CInt(Player.currentMedia.duration)
- TrackBar1.Value = CInt(Player.Ctlcontrols.currentPosition)
- ElseIf Player.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
- If Wiederholen = "Nein" Then
- If lstPlaylist.SelectedIndex = lstPlaylist.Items.Count - 1 Then
- Else
- NächsterTrack()
- End If
- ElseIf Wiederholen = "Alles" Then
- If lstPlaylist.SelectedIndex = lstPlaylist.Items.Count - 1 Then
- lstPlaylist.SelectedIndex = 0
- Else
- lstPlaylist.SelectedIndex = lstPlaylist.SelectedIndex + 1
- End If
- End If
- Abspielen()
- End If
- End Sub
- Public Sub Abspielen()
- If Player.playState <> WMPLib.WMPPlayState.wmppsPlaying Then
- If lstPlaylist.Items.Count = 0 Then
- MessageBox.Show("Du musst zuerst mindestens einen Musiktitel der Playlist zufügen!")
- Else
- Dim FileMp3WithPath As String
- If lstPlaylist.SelectedIndex = -1 Then lstPlaylist.SelectedIndex = 0
- FileMp3WithPath = HilfslisteDateinamen(lstPlaylist.SelectedIndex)
- Me.ToolTip1.SetToolTip(picPlay, "Pausiere hier den aktuell gespielten Musiktitel...")
- If Player.URL <> FileMp3WithPath Then Player.URL = FileMp3WithPath
- MessageBox.Show("Der Titel " & Player.URL & " wird jetzt von Sub Abspielen() abgespielt.")
- Player.Ctlcontrols.play()
- picPlay.Image = My.Resources.Pause
- End If
- ElseIf Player.playState = WMPLib.WMPPlayState.wmppsPlaying Then
- Me.ToolTip1.SetToolTip(picPlay, "Spiele hier den ausgewählten Musiktitel aus der Playlist ab...")
- Player.Ctlcontrols.pause()
- picPlay.Image = My.Resources.Play
- End If
- End Sub
Ich hoffe ich hab das ausführlich genug beschrieben, wenn nicht bitte kurz melden