OVH Cloud OVH Cloud

Lire une wav ?

2 réponses
Avatar
Leeloo
Bonjour,

est-il possible de lire un son wav sous acces, par exemple=20
=E0 l'ouverture d'un formulaire ?

Merci d'avance

2 réponses

Avatar
Yves Chabirand
Oui
tu déclares ça :
1) Private Declare Function sndPlaySoundA& Lib "winmm.dll" (ByVal lpszName
As String, ByVal hModule As Long)
et tu mets la lecture comme ça :
call joueWav("c:repertoirelamarseillaise.wav")
Ainsi ce call tu le mettra dans l'evenement "sur ouverture" de ton
formulaire, ce qui, dans ton code de formulaire, correspond a un
2)
Private Sub Form_Open(Cancel As Integer)
call joueWav("c:repertoirelamarseillaise.wav")
end sub
*****
3)
Sub joueWav(nfwav As String) ' déclarer préalablement l'API de la
dll en tete de module (fait en 1) ci dessus)
Const SND_ASYNC = &H1 ' permet de jouer le son
pendant que le prog se poursuit
If sndPlaySoundA(nfwav, SND_ASYNC) = True Then ' vérifie que le
fichier est dispo
Call sndPlaySoundA(nfwav, SND_ASYNC)
End If
End Sub

"Leeloo" a écrit dans le message news:
5aa901c474a7$f21a5930$
Bonjour,

est-il possible de lire un son wav sous acces, par exemple
à l'ouverture d'un formulaire ?

Merci d'avance
Avatar
Yves Chabirand
Fais gaffe aux retours a la ligne dans le code de ma réponse ci-dessus
Yves C

"Yves Chabirand" <yves.chabirand@(supprimer ceci)francetelecom.com> a écrit
dans le message news: ce8f3m$
Oui
tu déclares ça :
1) Private Declare Function sndPlaySoundA& Lib "winmm.dll" (ByVal lpszName
As String, ByVal hModule As Long)
et tu mets la lecture comme ça :
call joueWav("c:repertoirelamarseillaise.wav")
Ainsi ce call tu le mettra dans l'evenement "sur ouverture" de ton
formulaire, ce qui, dans ton code de formulaire, correspond a un
2)
Private Sub Form_Open(Cancel As Integer)
call joueWav("c:repertoirelamarseillaise.wav")
end sub
*****
3)
Sub joueWav(nfwav As String) ' déclarer préalablement l'API de
la

dll en tete de module (fait en 1) ci dessus)
Const SND_ASYNC = &H1 ' permet de jouer le son
pendant que le prog se poursuit
If sndPlaySoundA(nfwav, SND_ASYNC) = True Then ' vérifie que le
fichier est dispo
Call sndPlaySoundA(nfwav, SND_ASYNC)
End If
End Sub

"Leeloo" a écrit dans le message
news:

5aa901c474a7$f21a5930$
Bonjour,

est-il possible de lire un son wav sous acces, par exemple
à l'ouverture d'un formulaire ?

Merci d'avance