Discussion :

[Claude_Azoulai]

Bonjour à tous

Voici mon code :

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
 
    Sub CreationListe()
        Dim li As String
        Dim i As Integer = 0
        Dim Xwmp As IWMPMedia
 
        'nettoye la Playlist en cours avant de réalimenter la liste
        Form1.WindowsMediaPlayer1.currentPlaylist.clear()
 
        'rempli la Playlist avec chaque item sélectionnés
        For Each li In Form1.ListBox1.SelectedItems
            Xwmp = Form1.WindowsMediaPlayer1.newMedia(CheminFinal & "\" & li)
            Form1.WindowsMediaPlayer1.currentPlaylist.insertItem(i, Xwmp)
            i += 1
        Next
    End Sub
    Sub Jouer()
        Form1.WindowsMediaPlayer1.Controls.Play()
    End Sub

Si le remplissage de la Playlist se passe bien, VS2010 refuse
Form1.WindowsMediaPlayer1.Controls.Play()
En disant :

'Play' n'est pas un membre de 'System.Windows.Form.Control.ControlCollection

Quelqu'un connait-il la commande pour faire jouer cette Playlist ?

Merci de votre réponse

Claude Azoulai