LIRE UN SON DANS VISUAL BASIC
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
6 avril 2006 à 16:46
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 18 avril 2006 à 10:56
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 18 avril 2006 à 10:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36933-lire-un-son-dans-visual-basic
https://codes-sources.commentcamarche.net/source/36933-lire-un-son-dans-visual-basic
18 avril 2006 à 10:56
voici un code qui prend moins de ligne, et qui fonctionne même avec VBA...
Private Declare Function Playsound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub LireWav()
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
FichierWAV = "*.wav"
FichierWAV = ThisWorkbook.Path & "" & FichierWAV
Call Playsound(FichierWAV, 0&, SND_SYNC Or SND_FILENAME)
End Sub
9 avril 2006 à 11:51
9 avril 2006 à 10:56
De plus il manque beaucoup de flags !
LucyBerad -> La DLL est inclus avec la FrameWork, pas besoin de s'occuper de la DLL.
Redman
6 avril 2006 à 20:34
Avec le framework:
Dim Snd As New System.Media.SoundPlayer("NOM ET EMPLACEMENT DU FICHIER exemple c:\mozart.wav")
Snd.Play()
Tout simplement
6 avril 2006 à 20:23
6 avril 2006 à 20:21
6 avril 2006 à 16:46