[Resolvido]Som do mouse nos botoes de um formulario

Boa noite! a todos .gostaria de saber se tem como colocar o som do clique do mouse ao apertar qualquer botão de um frm?obrigado

Neste exemplo,entendido!agora se eu tiver muitos botoes em varios form ,seria mais interessante chamar a função num modulo,teria outro exemplo ?
coloquei em cada botão esse cod :
Call Playsound("C:\Users\kadu\Desktop\Nova pasta\Click.wav")
ficou bom ,mas não seria o correto né ?

kadhu,

Em todos os meus projetos tenho como padrão um diretório para guardar os arquivos de reprodução de sons. Exemplo: C:\SysFood\Objetos\Sound

Bom dentro desse diretórios tenho alguns arquivos de sons um som som especifico para abertura de um formulário, click rato, etc ...

Coloco os códigos nos formulários ao carregar e no botão ao clicar.

Utilizo o seguinte código:

Código:

Playsound (CurrentProject.Path & "\Objetos\Sound\Index")

Crie um módulo:

Código:

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

abraços,

Obrigado ,Uilson vou fazer isso e depois te falo .obrigado!

Criei o modulo como mandou ,criei uma sub pasta no diretorio c:\,com os arquivos de sons ,e o cod ao carregar o frm ,e ao clicar de um botão,mas não toca o som ,pq?
os cod :
Playsound (CurrentProject.Path & "C:\BD\error.wav")
call Playsound (CurrentProject.Path & "C:\BD\error.wav")
Playsound CurrentProject.Path & ("C:\BD\error.wav")
Playsound (CurrentProject.Path & "C:\BD\error.wav")

kadhu,

Descreva por gentileza o caminho inteiro onde está o seu front-end e o caminho onde foram armazenados os sons.


Abraços,

O bd ,está no C:\BD,e o arquivo de som está no ,C:\BD\Sound.
Resolvido obrigado pela ajuda Uilson

Resolvido obrigado pela ajuda Uilson

Valeu ...

Abraços

kadhu,

Desculpa-me se estou sendo inoportuno, visto que já deu por resolvido o post. Mas se possível, relate o que foi feito para resolver. Isto ajudará a outros.


abraços,

Descrevi o caminho como no post nº8 "C:\BD\soun\click.wav"
Criei a pasta sound e descrevi ocaminho dentro do cod.obrigado

Kadhu,

Só uma observação: Da forma escrito abaixo você terá mais flexibilidade, ou seja imagina que um cliente resolve utilizar uma outra unidade para instalar o sistema. Por exemplo instalar o sistema na unidade D:\

Playsound (CurrentProject.Path & "\soun\click.wav")



Abraços,

É ,mas desta forma não estava conseguindo estava dando erro !

Kadhu,

Aqui funciona 100%. Mas de qualquer forma fica aí a dica.


Abraços,

Obrigado Uilson !!!vou analizar