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


    Ajuda com botões de navegação no form sem registro

    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    Ajuda com botões de navegação no form sem registro Empty Ajuda com botões de navegação no form sem registro

    Mensagem  cjsilva2013 23/9/2017, 13:05

    Bom dia,

    Venho mais uma vez pedir ajuda com botões de navegação...

    Estou usando o seguinte código, para navegar entre os botões de volume no form....

    Não estou usando tabelas...

    Private Sub cmdBaixarSOM_Click()
    Dim Index As Long
    Dim BaixarVol As String

    Select Case Index
    Case 1 = BaixarVol.Cliked
    ' Decrease Volume
    Me.coco.settings.volume = (0)
    Me.cmdBaixarVol.BackColor = vbRed
    Me.cmdBaixo30.BackColor = False
    Me.cmdBaixo50.BackColor = False
    Me.cmdBaixo80.BackColor = False
    Me.cmdBaixo100.BackColor = False
    Case 2 = cmdBaixo30.Clicked
    ' Decrease Volume
    Me.coco.settings.volume = 30
    Me.cmdBaixo30.BackColor = vbRed
    Me.cmdBaixarVol.BackColor = False
    Me.cmdBaixo50.BackColor = False
    Me.cmdBaixo80.BackColor = False
    Me.cmdBaixo100.BackColor = False
    Case 2 = cmdBaixo50.Clicked
    ' Decrease Volume
    Me.coco.settings.volume = 50
    Me.cmdBaixo50.BackColor = vbRed
    Me.cmdBaixo30.BackColor = False
    Me.cmdBaixarVol.BackColor = False
    Me.cmdBaixo80.BackColor = False
    Me.cmdBaixo100.BackColor = False
    Case 2 = cmdBaixo80.Clicked
    ' Decrease Volume
    Me.coco.settings.volume = 80
    Me.cmdBaixo80.BackColor = vbRed
    Me.cmdBaixo30.BackColor = False
    Me.cmdBaixarVol.BackColor = False
    Me.cmdBaixo100.BackColor = False
    Case 2 = cmdBaixo100.Clicked
    ' Increase Volume
    Me.coco.settings.volume = 100
    Me.cmdBaixo100.BackColor = vbRed
    Me.cmdBaixo30.BackColor = False
    Me.cmdBaixarVol.BackColor = False
    Me.cmdBaixo50.BackColor = False
    Me.cmdBaixo80.BackColor = False

    End Select


    End Sub

    Os botões individuais estão funfando beleza... Criei dois botões: um para ao clicar nele vá aumentando o volume e o outro, baixando... Se clicar nos botões, alter o som do Media Player...

    Preciso que ao clicar no botãocmdBaixarSOM, baixe o som autoaticamente...

    Por favor se alguém poder me dar uma dica, ficarei grato...

    Optei pela forma de botões para facilitar...

    Abraços, no aguardo...

      Data/hora atual: 28/3/2024, 21:32