cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 2018
-
6 avril 2006 à 16:46
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 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.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 18 avril 2006 à 10:56
Salut à tous,
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
Avec le framework:
Dim Snd As New System.Media.SoundPlayer("NOM ET EMPLACEMENT DU FICHIER exemple c:\mozart.wav")
Snd.Play()
Tout simplement
Lucyberad
Messages postés414Date d'inscriptionmercredi 16 juin 2004StatutMembreDernière intervention26 juillet 20073 6 avril 2006 à 20:23
ha oui et apparament fo la dll hmod...
Lucyberad
Messages postés414Date d'inscriptionmercredi 16 juin 2004StatutMembreDernière intervention26 juillet 20073 6 avril 2006 à 20:21
ben un indice qui trompe pas, c'est le fait queles commentaire soit en anglais, pour les variable ok on peut avoir le reflexe anglais mais de commentaire en anglais c vraiment pas un francais l'auteur...
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201823 6 avril 2006 à 16:46
Sa sent le copier/coller a plein nez.... vu les commentaires
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