[Resolvido]Emitir son quando sair do frm

Boa tarde a todos,
Gostaria de um apoio mais uma vez, é que estou precisando fazer com que um formulário ao ser fechado emita um son, esse son é um arquivo mp3. Pra que eu saiba que o formulário específico foi fechado.

Desde já agradeço.

Olá Jairo


uso habitualmente, não em .mp3, mas sim em .wav

cria um modulo novo

Option Compare Database

Option Explicit
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

Function Playsound(sWavFile As String)
If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "Musica não encontrada!"
End If
End Function

no seu form, ao sair coloca

Playsound ("C:\Som\Encerrar.wav")

não esquecer colocar no diretório certo a wav que lhe anexo para teste


José Silva

Obrigado!!!

Deu certinho, Jair

Olá Jairo,

obrigado pelo retorno

disponha sempre

José Silva