Bonjour alors moi aussi je serais interessé. Je voudrais jouer un son mp3 (si possible en boucle) à l'ouverture de ma form et ne plus le lire à la fermeture de la form.
j'ai trouvé cette source sur le site :
- OptionExplicit
- Dim ret AsLong, mp3file AsString
- PrivateDeclareFunction mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand AsString, ByVal lpstrReturnString AsString, ByVal uReturnLength AsLong, ByVal hwndCallback AsLong) AsLong
- PrivateSub Form_Load()
- mp3file = "c:\xxx.mp3"
- ret = mciSendString("OPEN " & mp3file & " Alias Sonido", 0, 0, 0) 'ouvre
- ret = mciSendString("Play sonido", 0, 0, 0) 'Joue
- EndSub
- PrivateSub Form_QueryUnload(Cancel AsInteger, UnloadMode AsInteger)
- ret = mciSendString("Stop sonido", 0, 0, 0) 'Pause (si on fait lecture ca reprendra la)
- ret = mciSendString("Close sonido", 0, 0, 0) 'Arret (si on fait lecture ca recommence au debut)
- EndSub
http://www.vbfrance.com/codes/JOUER-FICHIERS-MP3-SANS-OCX_189.aspx
Cependant je l'ai utilisé en changant C:\xxx.mp3 par C:\music.mp3 mais ça ne fonctionne pas, quelqu'un saurait pourquoi ? Merci