Aide WMP.

Question

Bonjour,

je poste aujourd'hui pour vous demander un petit service.
Je suis débutant en VB.
J'aimerais savoir s'il existe un moyen d'afficher la playlist en cours d'un élément Windows Média Player.
Sinon, j'aimerais qu'en dessous un certain seuil se sortie sonore ( - 20dB par exemple), Windows Media player passe au titre suivant... Est-ce possible ?

Louis Le Carréres

ljalc · Answer

J'ai trouvé un truc pas mal :
http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/


Sub Lister_NomDesSequences_DansLaPlayList()
    Dim Pl As IWMPPlaylist
    Dim j As Integer, i As Integer
     
    'Définit la playlist active 
    Set Pl = WindowsMediaPlayer1.currentPlaylist
    
    'compte le nombre de séquences dans la playList
    j = Pl.Count
    If Not j > 0 Then MsgBox "il n'y a pas d'éléments dans la playlist"
    
    'Boucle sur les séquences  
    For i = 0 To j - 1
    MsgBox Pl.Item(i).Name
    '
    'pour afficher la source :
    'MsgBox Pl.Item(i).sourceURL
    '
    Next i
End Sub

J'aimerais donc que la playlist s'affiche dans la list-box.

Sub Lister_NomDesSequences_DansLaPlayList()
    Dim Pl As IWMPPlaylist
    Dim j As Integer, i As Integer
     
    'Définit la playlist active 
    Set Pl = WindowsMediaPlayer1.currentPlaylist
    
    'compte le nombre de séquences dans la playList
    j = Pl.Count
    If Not j > 0 Then MsgBox "il n'y a pas d'éléments dans la playlist"
    
    'Boucle sur les séquences  
    For i = 0 To j - 1
    ListBoxPlaylist.Items.Add(Pl.Item(i).Name)
  
    Next i
End Sub


Ce qu'il faudrait c'est que dans la listbox s'affiche l'artiste du titre en cours et le titre en cours, j'avais pensé à ça sauf, que ça ne fonctionne pas :


Sub Lister_NomDesSequences_DansLaPlayList()
    Dim Pl As IWMPPlaylist
    Dim j As Integer, i As Integer
     
    'Définit la playlist active 
    Set Pl = WindowsMediaPlayer1.currentPlaylist
    
    'compte le nombre de séquences dans la playList
    j = Pl.Count
    If Not j > 0 Then MsgBox "il n'y a pas d'éléments dans la playlist"
    
    'Boucle sur les séquences  
    For i = 0 To j - 1
    ListBoxPlaylist.Items.Add(Pl.Item(i).getItemInfo("author" & "-" & "title"))
    Next i
End Sub

Ce me met bien l'artiste du titre en cours dans la Listbox mais pas le titre du morceau en cours.

Et il faudrait mettre ça dans un timer pour que la playlist s'actualise toutes les X secondes...

J'aimerais comprendre comment afficher le contenu de la playlist de Windows Média Player et que celle-ci soit raffraichie...
Concernant l'autre question, je n'ai vraiment aucune idée de comment faire pour mettre en place ce type de système...

Louis Le Carréres

Aide WMP.

1 réponse

Votre réponse

Discussions similaires