hoe autoplay volgende mp3 file in listbox ?

[johnny1963]

Hoe kan ik bij in een listbox een autoplay maken voor de volgende geselecteerd mp3 file

de code die ik heb is

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

Dim Filename As String = ListBox1.SelectedItem
AxWindowsMediaPlayer1.settings.autoStart = True
AxWindowsMediaPlayer1.URL = Filename
-------------------------------------------------------------------------
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
ListBox1.SelectedIndex = 0
End If
End If
End Sub
----------------------------------------------------------------

hierbij speel wel het liedje die ik aanklik met de muis automatisch maar als het liedje is afgelopen speelt windowsmediaplayer niet meer in de listbox wordt wel de volgend mp3 geselecteerd, maar niet gespeeld.

 

[rolandwardenaar]

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

	' als met de muis een liedje wordt gekozen:
	SpeelGeselecteerdeLiedje()

End Sub


Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange

	If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
		If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then

			' alleen index verhogen via code, zorgt er niet voor dat het volgende liedje gespeeld wordt
			' selectedindex changed werkt alleen als de gebruiker de selectie met de muis aanpast,
			' dus na verhogen van de index, in de code de functie "SpeelGeselecteerdeLiedje()" aanroepen. 

			ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
			' speel volgende liedje
			SpeelGeselecteerdeLiedje()

		Else
			ListBox1.SelectedIndex = 0
		End If
	End If

End Sub

Private Sub SpeelGeselecteerdeLiedje()

	Dim Filename As String = ListBox1.SelectedItem
	AxWindowsMediaPlayer1.settings.autoStart = True
	AxWindowsMediaPlayer1.URL = Filename

End Sub

 

[johnny1963]

de code die die je hebt gegeven werkt niet mijn axwindowsmediaplaier stopt nog steeds.
dus hij speelt nog steeds niet automatisch het volgende lied

ik doe hierbij maar eens de hele code die ik heb

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeOpenFileDialog()
End Sub
------------------------------------------------------------------------------------------
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
SpeelGeselecteerdeLiedje()
End Sub
-------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog()
If (dr = System.Windows.Forms.DialogResult.OK) Then
' Read the files
Dim file As String
For Each file In OpenFileDialog1.FileNames
' Create a PictureBox for each file, and add that file to the FlowLayoutPanel.
Try
ListBox1.Items.Add(file)


Catch ex As Exception

MessageBox.Show(("Kan het lied: " & file.Substring(file.LastIndexOf("\"c)) & _ ". Je hebt mischien geen rechten , of " + "het is corrupt." _
& ControlChars.Lf & ControlChars.Lf & "Raporteer fout: " & ex.Message))
End Try
Next file
End If


If ListBox1.Items.Count > 0 Then
ListBox1.Select()
End If
Dim item As String = ListBox1.SelectedItem
AxWindowsMediaPlayer1.URL = item
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
--------------------------------------------------------------------------------------------------------------------


Public Sub InitializeOpenFileDialog()

Me.OpenFileDialog1.Filter = _
"Audio Files (*.mp3;*.wma;*.wav)|*.mp3;*.wma;*.wav|" + _
"All files (*.*)|*.*"
Me.OpenFileDialog1.Multiselect = True
Me.OpenFileDialog1.Title = "Select a audio File"
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub AxWindowsMediaPlayer1_PlaylistChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlaylistChangeEvent) Handles AxWindowsMediaPlayer1.PlaylistChange
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then

' alleen index verhogen via code, zorgt er niet voor dat het volgende liedje gespeeld wordt
' selectedindex changed werkt alleen als de gebruiker de selectie met de muis aanpast,
' dus na verhogen van de index, in de code de functie "SpeelGeselecteerdeLiedje()" aanroepen.

ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
' speel volgende liedje
SpeelGeselecteerdeLiedje()

Else
ListBox1.SelectedIndex = 0
End If
End If

End Sub

---------------------------------------------------------------------------------------------------------------



Private Sub SpeelGeselecteerdeLiedje()

Dim Filename As String = ListBox1.SelectedItem
AxWindowsMediaPlayer1.settings.autoStart = True
AxWindowsMediaPlayer1.URL = Filename

End Sub
End Class



sorry kon niet eerder reageren.
alvast bedankt

 

[johnny1963]

hep het zelf al opgelost