Lecture fichier son
shadow1779
Messages postés
706
Date d'inscription
mercredi 17 novembre 2004
Statut
Membre
Dernière intervention
29 septembre 2013
-
28 janv. 2006 à 17:51
cs_ralebole Messages postés 208 Date d'inscription mardi 29 novembre 2005 Statut Membre Dernière intervention 5 janvier 2023 - 28 janv. 2006 à 22:48
cs_ralebole Messages postés 208 Date d'inscription mardi 29 novembre 2005 Statut Membre Dernière intervention 5 janvier 2023 - 28 janv. 2006 à 22:48
1 réponse
cs_ralebole
Messages postés
208
Date d'inscription
mardi 29 novembre 2005
Statut
Membre
Dernière intervention
5 janvier 2023
1
28 janv. 2006 à 22:48
28 janv. 2006 à 22:48
Essaye ceci tester avec mp3 midi wave mes pas avec vb2005 essai ogg
Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long
'À déclarer au début du code
Public Sub JouerMusique(ByVal Fichier As String) ' jouer la musique
mciExecute("play " & Fichier)
End Sub
Private Sub ArreteMusique(ByVal Fichier As String) ''arrêter la musique
mciExecute("stop " & Fichier)
End Sub
Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
JouerMusique("testmp3.mp3")
End Sub
Private Sub Button2Click(sender As System.Object, e As System.EventArgs)
ArreteMusique("testmp3.mp3")
End Sub
Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long
'À déclarer au début du code
Public Sub JouerMusique(ByVal Fichier As String) ' jouer la musique
mciExecute("play " & Fichier)
End Sub
Private Sub ArreteMusique(ByVal Fichier As String) ''arrêter la musique
mciExecute("stop " & Fichier)
End Sub
Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
JouerMusique("testmp3.mp3")
End Sub
Private Sub Button2Click(sender As System.Object, e As System.EventArgs)
ArreteMusique("testmp3.mp3")
End Sub