Puis pour jouer un son :
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As _
Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Private Sunction Play(lpstrWav as string) as integer
' renvoye 0 si erreur
dim Sound as long
dim wFlags as long
Sound = lpstrWav
wFlags = SND_ASYNC Or SND_NODEFAULT
Play = sndPlaySound(Sound,wFlags%)
End Function
[edtdd]--Message édité par KarLKoX--[/edtdd]