Multison

Bonjour a tous

j'essai de dévlopper un petit programme qui me joue des sons

j'y arrive tres bien et j'ai trouvé plusieurs méthode qui fonctionnent toutes :

---1 er exemple

  Private sound As System.Media.SoundPlayer
  sound = New System.Media.SoundPlayer("monson.wav")
  sound.PlayLooping()

---2 eme exemple

tout betement
     My.Computer.Audio.Play("monson.wav")

---3eme exemple


            Dim bAns As Boolean, iRet As Integer = 0
            Try
                iRet = PlaySound("monson.wav", 0, SND_FILENAME)
            Catch
            msgbox("erreur du fichier")
            End Try

***

Toutes ces méthodes marchent a merveille. Cependant j'ai un probleme dont je ne trouve pas la solution :

Comment faire pour jouer plusieur son en meme temps ??

Si vous connaissez une solution (ou partie ) merci d'avance, parce que la je seche

  

Quelque chose comme ceci : ?

Module :

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Public Sub JouerUnWav(Fichier As String)
mciExecute ("play " & Fichier)
End Sub

Form :

JouerUnWav ("c:\fichier.wav")

kakenette

Oop!s mon code et en Vb 6.0 :/ regarde si il y a quelque chose équivalent en .NET

kakenette

salut,

la première méthode devrait être la bonne, en prenant soin de redéclarer SOUND à chaque usage (portée privée, NON générale)

ps : le code de kakenette , tel quel, ne fonctionnerait pas non plus car il faut spécifier un alias différent aussi à chaque appel

---

Prenez un instant pour répondre à ce sondage svp 

ok merci des réponse je vais tester ca dans la journée

des nouvelles

donc j'ai fait 2 boutons de la facon suivante :


 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim sound As System.Media.SoundPlayer

        sound = New System.Media.SoundPlayer("son1.wav")
        sound.PlayLooping()



    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim sound2 As System.Media.SoundPlayer
        sound2 = New System.Media.SoundPlayer("son2.wav")
        sound2.PlayLooping()


    End Sub


quand je clique sur bouton5 le son se lance

quand je clique sur bouton 7 ca arrete le premier son lancé et ca execute le son du bouton7 .... bizarre je vais chercher encore si vous avez des idées, n'hésité pas !

si tu te sens le courage de convertir de VB6 à VB.NET, regarde dans mes sources... (une classe de lecture wav, mp3, midi, etc, par API)

ok je vais essayé tu peux m'envoyer le lien de ta sources s'il te plait ? des que j'ai fini je t'envoi la transformation