TOCAR UMA MUSICA .MP3

RICKSOUSA 23/06/2012 21:09:00
#404756
boa noite.

como faço para quando eu clicar num botão executar uma musica .mp3?
ADILSOO 23/06/2012 21:19:55
#404758 Resposta escolhida
Ve se isso ajuda.. Pode ser WAV? se puder...

Declare as variaveis em (GENERAL)
 Private Declare Function SetWindowPos Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function Som Lib [Ô]winmm.dll[Ô] Alias [Ô]PlaySoundA[Ô] (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

E coloca no botão
 On Error Resume Next
Som (App.Path & [Ô]\Som.wav[Ô]), ByVal 0&, SND_FILENAME Or SND_ASYNC

Valeu, qualquer coisa posta aí...
RICKSOUSA 23/06/2012 21:51:29
#404762
adilson eu fiz o seguinte, peguei um audio .wav e colei na area de trabalho.

ai criei um projeto e coloquei apenas um botão no form

no general do form

eu colei o codigo:

[th][/th][/trPrivate Declare Function SetWindowPos Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function Som Lib [Ô]winmm.dll[Ô] Alias [Ô]PlaySoundA[Ô] (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long]


e no botao:

[th][/th][/trOn Error Resume Next
Som (App.Path & [Ô]\AOFINDAR.wav[Ô]), ByVal 0&, SND_FILENAME Or SND_ASYNC]
Cabecalho


AOFINDAR é o nome do audio

mais não funcionou quando eu executei, eu executo mais não roda o audio.
ADILSOO 23/06/2012 22:17:59
#404763
Olha se você quiser usar o audio de qualquer lugar, coloque assim...
 Som ([Ô]Coloque aqui o caminho completo[Ô]), ByVal 0&, SND_FILENAME Or SND_ASYNC

Agora se você quiser deixar dentro de uma pasta no lugar que está salvo seu sistema faça assim...
 Som (App.Path & [Ô]\SuaPasta\Som.wav[Ô]), ByVal 0&, SND_FILENAME Or SND_ASYNC

Ou do mesmo jeito que está se você quiser deixar o audio solto na pasta que está salvo o executável do seu sistema
Som (App.Path & [Ô]\Som.wav[Ô]), ByVal 0&, SND_FILENAME Or SND_ASYNC
qualquer coisa posta aí, abraços.
RICKSOUSA 23/06/2012 22:19:34
#404764
valeu meu brother, deu certinho é que eu não tinha colocado o arquivo dentro da pasta do projeto
Tópico encerrado , respostas não são mais permitidas
Voltar