MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Formulario com Botões para reproduzir Som

    avatar
    raultavares
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  raultavares em 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 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 em 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: 25/9/2020, 09:47