Visualiser Pochette, WindowsMediaPlayer Controle, Code VBA, Access
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:
Code:
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 |
Question: Ou dois-je insérer le code pour la pochette: Chemin & "Folder.jpg"
Merci à celui ou celle qui pourra me dépanner.:P
