MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  cjsilva2013 em Sab 23 Set 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: Sab 18 Nov 2017, 01:04