Lire fichier audio depuis les resources
Fermé
DarkNight5047
Messages postés
20
Date d'inscription
vendredi 11 mai 2012
Statut
Membre
Dernière intervention
17 mars 2015
-
15 mars 2015 à 18:19
DarkNight5047 Messages postés 20 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 17 mars 2015 - 17 mars 2015 à 18:21
DarkNight5047 Messages postés 20 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 17 mars 2015 - 17 mars 2015 à 18:21
A voir également:
- Lire fichier audio depuis les resources
- Tubidy.com musique audio mp3 telecharger musique ✓ - Forum Audio
- Fichier rar - Guide
- Fichier host - Guide
- Lire fichier iso - Guide
- Lire fichier epub - Guide
2 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 16/03/2015 à 09:18
Modifié par michel_m le 16/03/2015 à 09:18
Bonjour,
Jouer plusieurs wav en m^me temps ???
ressources ??? ques aco ?
pour jouer un wav
si tu veux jouer plusieurs morceaux à la suite
Michel
Jouer plusieurs wav en m^me temps ???
ressources ??? ques aco ?
pour jouer un wav
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme) snd_sync: arrete le prog
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "215.wav"
Call PlaySound32(WAVFile, 0&, SND_SYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
si tu veux jouer plusieurs morceaux à la suite
For cptr=1 to N
music=choose(cptr,"music1","music2"......"musicN")
sub playwav(music)
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & music & ".wav"
etc
end if
next
Michel
DarkNight5047
Messages postés
20
Date d'inscription
vendredi 11 mai 2012
Statut
Membre
Dernière intervention
17 mars 2015
17 mars 2015 à 18:21
17 mars 2015 à 18:21
Up :p
Modifié par DarkNight5047 le 16/03/2015 à 18:37