Discussion :

[bruce207]

Bonjour,
je propose ici de donner le moyen de jouer un fichier son dans une application vb6. Il peut servir à ceux qui veulent inclure un son dans l'évévement d'un bouton, d'une feuile, etc.
Voici le code à placer dans la partie déclaration de la feuille contenant l'objet ou à placer dans le module .bas (ce que je préfère) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 HH_DISPLAY_TOPIC = &H0
Public Const SND_ASYNC = &H1            '  Joue d'une manière asynchrone
Public Const SND_FILENAME = &H20000     '  Le nom est un nom de fichier
Public Const SND_LOOP = &H8             '  Boucle le son jusqu'à une autre demande de sndPlaySound
Public Const SND_NODEFAULT = &H2        '  silence , si le son non trouvé
Public Const SND_NOSTOP = &H10          '  N'arrête pas de jouer le son
Public Const SND_RESOURCE = &H40004     '  Le nom est un nom de ressource ou atom
Public Const SND_SYNC = &H0             '  Joue d'une manière synchrone (défaut)
 
Public Sub JouerLeFichier(ByVal NomDuFichier As String, Optional ByVal Attente As Boolean = False)
  If Attente Then
    Call PlaySound(NomDuFichier, SND_SYNC, SND_FILENAME)
  Else
    Call PlaySound(NomDuFichier, SND_SYNC, SND_ASYNC Or SND_FILENAME)
  End If
End Sub

et voici le code à placer dans l'événement choisi, par exemple dans Command_click() si vous voulez le son apres avoir cliquer sur le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

JouerLeFichier App.Path + "\" & "MonFichierSon.wav"

N'oubliez pas de specifier le chemin du fichier s'il n'est pas dans le repertoire de l'application.
J'espère que ça vous aidera, à bientot.

[SfJ5Rpw8]

c'est une révision de la



Comment jouer des fichiers wav sans lecteurs (WMP ou MID) ?