MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Formulario com Botões para reproduzir Som

    avatar
    raultavares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 23
    Registrado : 05/02/2013

    Formulario com Botões para reproduzir Som Empty Formulario com Botões para reproduzir Som

    Mensagem  raultavares 8/4/2020, 17:26

    Boa tarde
    Mais uma vez venho solicitar a vossa ajuda.
    Tenho um formulário com vários Botões e queria associar um som predefinido a cada botão.
    A ideia é criar uma consola virtual para ligar a um amplificador com colunas para chamamento de pessoas e passagem de mensagens gravadas.
    É possivel fazer isto em BD ?

    Obrigado
    avatar
    TomasJDS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/03/2020

    Formulario com Botões para reproduzir Som Empty Re: revisão de tópico

    Mensagem  TomasJDS 8/4/2020, 18:37

    Boa tarde!

    Da uma olhada nesse código

    Administrador escreveu: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 evento ao abrir do form:

    Private Sub Form_Open(Cancel As Integer)
    Playsound ("C:\WINDOWS\Media\Windows Logon Sound.wav")
    End Sub

    creio que possa substituir abrir formulário pelo acionamento do botão.
    segue abaixo para dares uma olhada em outros códigos interessantes.

    https://www.maximoaccess.com/t11-102-codigos-vba-para-access

      Data/hora atual: 18/5/2022, 19:45