[axWindowsMediaPlayer] Problème de playlist

Bonjour,

Après avoir retourné le WEB (avec google), je n'arrive pas a trouver réponse à mon probleme. Mon programme liste des MP3 qui sont situés dans un répertoire particulié. Ensuite, lors du listage du répertoire, j'ajoute les fichiers dans une checkedListBox, puis je créer un nouveau média, puis j'ajoute le média dans ma playlist. A la fin de ma boucle j'ai bien autant de fichier que d'élément dans la playlist. Cependant j'ai l'impression que les fichiers de la playlist sont souvent les même. Autrement dit que ma playlist est mal construite.

Je voulais savoir s'il y avait moyen d'afficher la fenêtre de playlist du lecteur (WMP) afin de voir cette fameuse playlist. Desolé je n'ai pas le code avec moi pour le moment donc je ne peux pas vous en montrer.

Merci pour les infos...

Voila le code :

boucle pour créer la playlist :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

wmp.currentPlaylist.clear() RBF_Playlist = wmp.playlistCollection.getAll.Item(0) RBF_Playlist.name = "RadioBlogFeed PlayList" wmp.currentPlaylist = RBF_Playlist For i As Integer = 0 To media_List.Count - 1 On Error Resume Next   'fichier_info = CType(media_List.Item(i), str_file).str_path   ' on compte le nombre de fichier ext = getExt(fichier_info.str_path)   If ext.Equals("mp3") Then mp3 = mp3 + 1 End If   If ext.Equals("rbs") Then rbs = rbs + 1 End If   ' ajout du fichier dans la liste box CheckedListBox.Items.Add(CType(media_List.Item(i), str_file).str_rename + " [" + CType(media_List.Item(i), str_file).str_size + " ko]", True)   ' on ajoute l'élément dans la palylist de wmp Xwmp = wmp.newMedia(CType(media_List.Item(i), str_file).str_path) wmp.currentPlaylist.appendItem(Xwmp) Next

---

et ca c'est le code lorsque je selectionne un element de la checkedListBox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CheckedListBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckedListBox.SelectedIndexChanged   If CheckedListBox.SelectedIndex <> -1 Then fichier_info = media_List.Item(CheckedListBox.SelectedIndex) If File.Exists(fichier_info.str_path) Then It = wmp.currentPlaylist.Item(CheckedListBox.SelectedIndex) wmp.Ctlcontrols.playItem(It) wmp.Ctlcontrols.pause() 'MsgBox(wmp.currentPlaylist.Item(CheckedListBox.SelectedIndex).sourceURL) 'wmp.URL = fichier_info.str_path End If   End If End Sub

---

Je veux juste voir la playlist pour voir ce qu'il ne va pas. j'ai essayer avec un watcher mais ca fonctionne pas super bien.