2 x mediaplayerRésolu

Question

salut tt le monde
dans une form j ai mis 
Private Sub Form_Load()
   WindowsMediaPlayer2.URL = App.Path & "\Piano.mid"
End Sub



et pianno mid est jouer une seule fois
comment faire pour que a la fin de la lecture de pianno.mid  il recommence une 2éme fois
 ou  alors il joue un autre morceau2.mid


kysid
cordialement

michelxld · Accepted Answer

bonsoir

pour jouer la sequence en boucle , tu peux essayer

WindowsMediaPlayer1.URL = "C:\maMusique.mid"
WindowsMediaPlayer1.Controls.Play
WindowsMediaPlayer1.settings.setMode "loop", True

pour la 2eme question tu peux creer une playlist afin de jouer plusieurs morceaux &#224; la suite

Dim Xwmp As IWMPMedia


Wmp.currentPlaylist.Clear
     
Set Xwmp = Wmp.newMedia("C:\essai.mid") 'adapter les noms de fichiers
Wmp.currentPlaylist.insertItem 0, Xwmp
  
Set Xwmp = Wmp.newMedia("C:\maMusique.mp3")
Wmp.currentPlaylist.insertItem 1, Xwmp


Set Xwmp = Wmp.newMedia("C:\Jumbalaya.mid")
Wmp.currentPlaylist.insertItem 2, Xwmp


Wmp.Controls.Play

bonne soiree
michel

cs_kysid · Answer

bonnesoir michelxld
merci pour votre aide
kyssid

2 x mediaplayer

2 réponses

Discussions similaires