Hallo leute,
bin zurzeit and einem Projekt dran und programmiere einen Media Player mit vb6. Dieser Player läuft auch bis auf das nextTrack Ereignis komplett.
Habe auf einer anderen website in einem alten post einen Vorschlag gefunden, der teilweise funktioniert.
Mit diesem Vorschlag wird der Nächste Titel wiedergegeben und eine MessageBox öffnet sich, wobei wenn man diese schließt die Wiedergabe des Titels stoppt.
'Versuch der Initialisierung der intelligenten Wiedergabe
'Sub ist aktiv wenn sich der Wiedergabemodus ändert (Play, Pause, Stop, Buffering, Titel zu Ende, etc.)
1 Private Sub wmp_PlayStateChange(ByVal NewState As Long)
2 intPrüfung = lstPlay.ListIndex
'Abfrage ob der aktuelle Titel zu Ende ist
3 If wmp.playState = wmppsMediaEnded Then
'Abfrage der aktuellen Position in der Playlist
'Wenn der letzte Titel in der Playlist ausgewählt ist, dann springen zum ersten
4 If lstPlay.ListIndex = intAnzahl - 1 Then
'Senken des aktuellen Index auf den, der zum ersten Titel in der Playlist gehört
5 lstPlay.ListIndex = 0
6 lstPlaylist.ListIndex = 0
7 wmp.URL = lstPlay.Text
8 MsgBox (wmp.playState)
'Wiedergabe und Informationausgabe
'Wenn der erste Titel in der Playlist NICHT ausgewählt ist, dann erhöhen des Index um 1
9 Else
10 lstPlay.ListIndex = lstPlay.ListIndex + 1
11 lstPlaylist.ListIndex = lstPlaylist.ListIndex + 1
12 wmp.URL = lstPlay.Text
13 MsgBox (wmp.playState)
14 End If
15 End If
Als Anhang habe ich den gesamten Quellcode .
Vielen Dank im Voraus
bin zurzeit and einem Projekt dran und programmiere einen Media Player mit vb6. Dieser Player läuft auch bis auf das nextTrack Ereignis komplett.
Habe auf einer anderen website in einem alten post einen Vorschlag gefunden, der teilweise funktioniert.
Mit diesem Vorschlag wird der Nächste Titel wiedergegeben und eine MessageBox öffnet sich, wobei wenn man diese schließt die Wiedergabe des Titels stoppt.
'Versuch der Initialisierung der intelligenten Wiedergabe
'Sub ist aktiv wenn sich der Wiedergabemodus ändert (Play, Pause, Stop, Buffering, Titel zu Ende, etc.)
1 Private Sub wmp_PlayStateChange(ByVal NewState As Long)
2 intPrüfung = lstPlay.ListIndex
'Abfrage ob der aktuelle Titel zu Ende ist
3 If wmp.playState = wmppsMediaEnded Then
'Abfrage der aktuellen Position in der Playlist
'Wenn der letzte Titel in der Playlist ausgewählt ist, dann springen zum ersten
4 If lstPlay.ListIndex = intAnzahl - 1 Then
'Senken des aktuellen Index auf den, der zum ersten Titel in der Playlist gehört
5 lstPlay.ListIndex = 0
6 lstPlaylist.ListIndex = 0
7 wmp.URL = lstPlay.Text
8 MsgBox (wmp.playState)
'Wiedergabe und Informationausgabe
'Wenn der erste Titel in der Playlist NICHT ausgewählt ist, dann erhöhen des Index um 1
9 Else
10 lstPlay.ListIndex = lstPlay.ListIndex + 1
11 lstPlaylist.ListIndex = lstPlaylist.ListIndex + 1
12 wmp.URL = lstPlay.Text
13 MsgBox (wmp.playState)
14 End If
15 End If
Als Anhang habe ich den gesamten Quellcode .
Vielen Dank im Voraus