Jouer un son ".mid" ?
cs_revivall
Messages postés
24
Date d'inscription
mercredi 5 septembre 2001
Statut
Membre
Dernière intervention
7 août 2003
-
5 janv. 2003 à 19:30
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003 - 5 janv. 2003 à 20:30
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003 - 5 janv. 2003 à 20:30
A voir également:
- Jouer un son ".mid" ?
- Mid vba - Forum Visual Basic 6
- Mid() vba - Forum Visual Basic
- Fonctions MID et FORMAT ne fonctionnent plus!!!! - Forum Visual Basic
- Vb6 mid ✓ - Forum Visual Basic
- C# mid ✓ - Forum C# / .NET
1 réponse
Nektanebos
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003
5 janv. 2003 à 20:30
5 janv. 2003 à 20:30
Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long
Public Sub JouerUnWav(Fichier As String)
mciExecute("play " & Fichier)
End Sub
' Et pour executer le son avec un bouton par exemple, mettez le code suivant dans votre MonBouton_Click()
JouerUnWav("C:\LeChemin\MonFichier.Wav")
Public Sub JouerUnWav(Fichier As String)
mciExecute("play " & Fichier)
End Sub
' Et pour executer le son avec un bouton par exemple, mettez le code suivant dans votre MonBouton_Click()
JouerUnWav("C:\LeChemin\MonFichier.Wav")
