Lire fichier audio depuis les resources

DarkNight5047 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
DarkNight5047 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, j'aimerai lire un fichier .wav qui se situe dans mes ressources. Le problème c'est que je veux en lire plusieurs en même temps et je ne peut donc pas utiliser My.Computer.Audio.Play(). Je sais que je devrai surement utiliser wmp mais je voie pas comment. Merci de m'aider

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,
    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
    0
    1. DarkNight5047 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
       
      ça ne répond pas a mon probleme car j'ai besoin d'en jouer plusieurs en même temps et depuis mes ressources. Cela dit merci quand même :D
      0
  2. DarkNight5047 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
     
    Up :p
    0