FAQ

Si l'on souhaite jouer un son à l'ouverture d'un formulaire ou sur tout autre événement, on placera le code ci-dessous dans un module général.


Option Compare Database
Option Explicit

'// Dans un module standard.
Public Declare Function PlaySound Lib "winmm.dll" _
                                  Alias "PlaySoundA" _
                                  (ByVal lpszName As String, _
                                   ByVal hModule As Long, _
                                   ByVal dwFlags As Long) As Long

Public Const SND_ASYNC = &H1          '  joue en asynchrone.
Public Const SND_FILENAME = &H20000   '  indique nom de fichier.


Puis, dans l'événement "Sur chargement" du formulaire on écrit :


// Dans un formulaire.
Private Sub Form_Load()
     PlaySound "C:MonDossierMonFichierSon.wav", ByVal 0&, _
                           SND_FILENAME Or SND_ASYNC
End Sub

---