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

[Claude_Azoulai]

J'ai trouvé (une partie de mon problème)
J'ai remplacé au hasard le terme "Controls" par le terme "CtlControles" que j'ai trouvé dans la liste de l'intellisens et cette partie a été acceptée.
Hormis le fait que le contrôle WindowsMediaPlayer est peu documenté, sur les quelques rares exemple que j'avais trouvé ils utilisaient tous le terme 'Controls'

Il reste un problème, losrque j"exécute la commande "Play", seule la première occurance de la PlayList est jouée.
Je vais chercher, mais si quelqu"un a une idée, elle sera la bienvenue.

Claude Azoulai