Discussion :

[max44410]

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...

[max44410]

Voila le code :

boucle pour créer la playlist :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.