Hallo,
Ik heb een mediaspeler gemaakt in VB2010. Alles werkt prima, alleen de volgende optie kan ik niet voor elkaar krijgen.
Ik laad bijvoorbeeld een playlsit in . Druk op play of dubbelklik op het liedje en het eerste liedje wordt keurig afgespeeld. Dan zou ik graag willen dat hij automatisch naar het volgend nummer gaat en die ook afspeelt. Dit lukt mij niet. Voor het volgende nummer moet ik steeds weer een button actie ondernemen. Het nummer wordt met deze code afgespeeld:
Dim aantalsongs
aantalsongs = ListBox1.Items.Count
If ListBox1.Text = "" Then
Button2.Enabled = False
If aantalsongs > 0 Then Button2.Enabled = True
Exit Sub
End If
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value
Timer3.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Het belangrijkste uit deze code is natuurlijk:
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value
Hoe krijg ik het nu voorelkaar dat de speler de volgende item selecteerd en afspeelt, NA het afspelen van het liedje.
Ik heb dit al geprobeerd met ..... Played en Stopped maar kennelijk doe ik daarbij iets verkeerd.
Wie o wie
Groetjes
Ik heb een mediaspeler gemaakt in VB2010. Alles werkt prima, alleen de volgende optie kan ik niet voor elkaar krijgen.
Ik laad bijvoorbeeld een playlsit in . Druk op play of dubbelklik op het liedje en het eerste liedje wordt keurig afgespeeld. Dan zou ik graag willen dat hij automatisch naar het volgend nummer gaat en die ook afspeelt. Dit lukt mij niet. Voor het volgende nummer moet ik steeds weer een button actie ondernemen. Het nummer wordt met deze code afgespeeld:
Dim aantalsongs
aantalsongs = ListBox1.Items.Count
If ListBox1.Text = "" Then
Button2.Enabled = False
If aantalsongs > 0 Then Button2.Enabled = True
Exit Sub
End If
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value
Timer3.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Het belangrijkste uit deze code is natuurlijk:
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value
Hoe krijg ik het nu voorelkaar dat de speler de volgende item selecteerd en afspeelt, NA het afspelen van het liedje.
Ik heb dit al geprobeerd met ..... Played en Stopped maar kennelijk doe ik daarbij iets verkeerd.
Wie o wie
Groetjes