Sign in to follow this  
AlexMunhoz

Trocar O Beep Por Um Som No Formato .wav

Recommended Posts

Ola brother

Gostaria de uma ajudo para substituir o comando Beep por um som no formato .wav

ex:

Ao invés de usar o alerta com o comando Beep, eu gostaria de rodar um arquivo no formato .wav que tenho junto ao arquivo .exe.

Alguém poderia me ajudar?

Grato,

Share this post


Link to post
Share on other sites

Bom segue a resposta do tópico....

No Modulo:

Declare Function sndPlaySound Lib "winmm.dll" _
                 Alias "sndPlaySoundA" _
                 (ByVal lpszSoundName _
                 As String, ByVal uFlags As Long) As Long

Global Const SND_SYNC = &H0
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H9
Global Const SND_USUAL = SND_ASYNC
Comando para executar o som.
Dim x As Long
x = sndPlaySound("recado.wav", SND_USUAL)

t+

Brothers podem fechar o tópico.

Abraço.. ;)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this