Gostaria de Saber Como Colocar Som no Form  Para que Depois de Executá-lo

 

A Música Tocar junto

Coloque isso no General

 

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

 

 

Isso coloque em um módulo

 

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

Public Enum SndPlayFlags
    SND_SYNC = &H0
    SND_ASYNC = &H1
    SND_NODEFAULT = &H2
    SND_MEMORY = &H4
    SND_LOOP = &H8
    SND_NOSTOP = &H10
End Enum

 

E isso no lugar que vc quer que comece a tocar

Call sndPlaySound(Caminho & "Som.wav", 0)

Segue um Ex....

 

'Som no Resource...

'Carregue em Add-Ins >> Resource Editor >> ira aparecer um novo icone na barra, parecido com o do Regedit...

'nele crie um novo arquivo .Res... Adicione o Som nele clicando em Add Custon Resource... 

 

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundData As Any, ByVal uFlags As Long) As Long

Private Const SND_SYNC = &H0                 '  toca o som antes de passar o controle (default)
Private Const SND_ASYNC = &H1                '  passar o controle mesmo antes de teirnar
Private Const SND_NODEFAULT = &H2            '  não usa som de default
Private Const SND_MEMORY = &H4               '  lpszSoundName points to a memory file
Private Const SND_LOOP = &H8                 '  loop the sound until next sndPlaySound
Private Const SND_NOSTOP = &H10              '  don't stop any currently playing sound

Private Sub Form_Click()
'TOCA O SOM
PlaySoundRes 101
End Sub

Public Sub PlaySoundRes(ResourceId As Long)
' Usa Sound Play Sound para tocar o arquivo de onda sonora
'------------------------------------------------------------------
    Dim sndBuff As String
'------------------------------------------------------------------
    sndBuff = StrConv(LoadResData(ResourceId, "CUSTOM"), vbUnicode)
   
    Call sndPlaySound(sndBuff, SND_ASYNC Or SND_MEMORY)
'------------------------------------------------------------------
End Sub

Private Sub Form_Load()
'FAZ APARECER O FORM ANTES DO SOM
'Me.Show
'DEIXA O WINDOWS CRIAR O FORM
'DoEvents
'TOCA O SOM
PlaySoundRes 103

End Sub

Private Sub Form_Unload(Cancel As Integer)
'TOCA O SOM
PlaySoundRes 104

End Sub

 

 

Valeu...???