Merci à SilyRoad pour le très bon article sur l'utilisation du Windows Media Player en VBA.
Je n'arrive pas à garder l'image fixe de la pochette dans le controle Access pour le WMP, tout au long de l'écoute de la playList:
Extrait de mon code:
Question: Ou dois-je insérer le code pour la pochette: Chemin & "Folder.jpg"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim J As Byte Dim Fichier As String Dim MyPlayer As WindowsMediaPlayer Dim Xwmp As IWMPMedia 'Playlist Set MyPlayer = Me.MyPlayer.Object MyPlayer.currentPlaylist.Clear 'Nettoye la Playlist précédente Fichier = Dir(Chemin & "*.wma") 'Chargement de tous les items dans la Playlist: J = 0 Do While Fichier <> "" Set Xwmp = MyPlayer.newMedia(Chemin & Fichier) MyPlayer.currentPlaylist.insertItem J, Xwmp J = J + 1: Fichier = Dir Loop DoEvents End Sub
Merci à celui ou celle qui pourra me dépanner.![]()
Partager