Musique

[Michel C]

Bonjour à tous,

J'ai inséré, dans un userform, un mediaplayer. Je peux seulement faire jouer une chanson. Comment écrire une programmation pour faire jouer plusieurs chansons de suite.

Merci de votre aide.

Michel

 

[MichelXld]

Re : Musique

bonjour


S'il s'agit de Windows Media Player, tu peux tester:

'crée une PlayList composée de 3 séquences: 
Dim Xwmp As IWMPMedia
 
'nettoye la Playlist en cours avant de réalimenter la liste 
WindowsMediaPlayer1.currentPlaylist.Clear
     
Set Xwmp = WindowsMediaPlayer1.newMedia("C:\essai.mid")
WindowsMediaPlayer1.currentPlaylist.insertItem 0, Xwmp
  
Set Xwmp = WindowsMediaPlayer1.newMedia("C:\maMusique.mp3")
WindowsMediaPlayer1.currentPlaylist.insertItem 1, Xwmp
 
Set Xwmp = WindowsMediaPlayer1.newMedia("C:\Jumbalaya.mid")
WindowsMediaPlayer1.currentPlaylist.insertItem 2, Xwmp
 
'Lecture
WindowsMediaPlayer1.Controls.Play

Bon après midi
MichelXld