Jouer un sonRésolu

Question

Salut,


Je travaille avec Visual Basic 6.0.


Je voudrais qu'un son .wav soit lancé (sans être répété) quand je clique sur un bouton.


J'ai beau tester PlaySound et companie... rein ne marche ! 


Merci.

Nichlas · Accepted Answer

Merci à vous pour ces précisions

mortalino · Answer

Salut,

regarde les snippets :
http://www.codyx.org/snippet_jouer-arreter-son-wav_42.aspx

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_DARKSIDIOUS · Answer

Oui et puis en même temps, va lire le règlement...

Utilisateur anonyme · Answer

__________
Kenji

Nichlas · Answer

Poli, je l'ai été. Je n'ai pas écrit en langage SMS non plus, alors ton smiley...

Mortalino, le lien que tu me donnes, je le connaissais déjà, j'ai essayé plusieurs des solutions données sans succès.

J'ai fini par trouver un exemple qui marche, avec "lpszSoundName". Par contre il m'a fallu créer un module, mais j'ai du mal à comprendre à quoi ça sert...

cs_DARKSIDIOUS · Answer

Nichlas : le règlement ne se limite pas à être poli et écrire correctement :

* On fait une recherche sur le site avant de poster une question.
* On précise les détails du problème : contexte, langage, message d'erreur ...
* On pense à donner le bout de code qui pose problème

Donc ta question ne respectait pas ces 3 points...

Tu vois bien, en cherchant un peu, tu as réussi à trouver, comme ce serait le cas dans la grande majorité des messages postés par ceux qui ne cherchent pas avant de demander sur le forum !

mortalino · Answer

"Mortalino, le lien que tu me donnes, je le connaissais déjà, j'ai essayé plusieurs des solutions données sans succès"

>> beh chez moi, ça fonctionne..  je sais pas quoi te dire !

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

Nichlas · Answer

Pour être plus précis, j'ai crée un module contenant :



--------------------------------------------------------
Option Explicit


Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Public lpszSoundName As String
Public uFlags As Long
Public Resultat As Long
--------------------------------------------------------

Pour ce qui est du bouton, j'ai : (BEEP.wav étant le fichier audio)

--------------------------------------------------------
lpszSoundName = App.Path & "\BEEP"
uFlags = 1
Resultat = sndPlaySound(lpszSoundName, uFlags)
--------------------------------------------------------

Ca marche mais bon, je ne comprends pas trop le principe de fonctionnement, et comment/à quoi sert un module.

mortalino · Answer

Un module sert à stocker des données.
Généralement c'est de porté Public (et non Private) afin que les codes soient accessible depuis TOUT ton projet (généralement mais... pas obligatoire, c'est selon l'utilité)

Tu peux mettre ce code dans le Module de la Form, en remplaçant tes Public en Private.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_casy · Answer

si tu ne veux pas du module, tu met ta déclaration dans la feuille mais en Private :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
As Long

Private lpszSoundName As String
Private uFlags As Long
Private Resultat As Long

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Jouer un son

10 réponses

Votre réponse

Discussions similaires