Jouer un son sous VB
Résolu
Jperrio
Messages postés
71
Date d'inscription
Statut
Membre
Dernière intervention
-
James56 Messages postés 161 Date d'inscription Statut Membre Dernière intervention -
James56 Messages postés 161 Date d'inscription Statut Membre Dernière intervention -
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
- Vb cable - Télécharger - Audio & Musique
- Jouer zuma - Télécharger - Jeux vidéo
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 !