Jouer un son sous VB
Résolu
Jperrio
Messages postés
77
Statut
Membre
-
James56 Messages postés 173 Statut Membre -
James56 Messages postés 173 Statut Membre -
Bonjour,
Je developpe depuis excel et sous VB editor un petit programme.
Pour le rendre encore plus ergonomique, je voudrais jouer un son au moment ou je clique sur un bouton.
Qui peux me dire quel composant installer et comment faire ?
Merci
Je developpe depuis excel et sous VB editor un petit programme.
Pour le rendre encore plus ergonomique, je voudrais jouer un son au moment ou je clique sur un bouton.
Qui peux me dire quel composant installer et comment faire ?
Merci
A voir également:
- Jouer un son sous VB
- Jouer a pokemon sur android - Guide
- Vb - Télécharger - Langages
- Comment jouer a star citizen - Guide
- Jouer zuma - Télécharger - Jeux vidéo
- Vb audio cable - Télécharger - Audio & Musique
7 réponses
Tu n'es pas le seul sur CCM. Si quelqu'un se pose la même question, il connaîtra ma solution même si le message date de 2 ans. Dans ces conditions, CCM aurait dû bloquer ce message et même tous les plus vieux par la même occasion.
Mieux vaut tard que jamais !
A lire ta phrase, c'est comme si je devais être à l'affut des questions posées ici et d'apporter obligatoirement une réponse.
Mieux vaut tard que jamais !
A lire ta phrase, c'est comme si je devais être à l'affut des questions posées ici et d'apporter obligatoirement une réponse.
Bonjour,
Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub faire_bip()
Beep 500, 400
End Sub
ici: 500 est la note, 400 la durée
Michel
Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub faire_bip()
Beep 500, 400
End Sub
ici: 500 est la note, 400 la durée
Michel
re,
Suffit de demander!...
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
' archives mpfe
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "atmosph.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
et le wav bruit des pièces (si tu en as d'autres je suis preneur, d'avance merci):
https://www.cjoint.com/?hskHQC13BX
Suffit de demander!...
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
' archives mpfe
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "atmosph.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
et le wav bruit des pièces (si tu en as d'autres je suis preneur, d'avance merci):
https://www.cjoint.com/?hskHQC13BX
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci MicDundee
Merci !