MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mudar cor dos limites do botão ao clicar

    Compartilhe

    alpedro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Mudar cor dos limites do botão ao clicar

    Mensagem  alpedro em Sab 02 Abr 2016, 13:44

    Olá.
    Tenho um formulário MENU e apaguei os botões porque ao inserir imagem em BMP nos botões deu aviso de serem grandes e então colei as imagens no form e queria que ao clicar mudasse a cor dos limites de verde para amarelo e voltasse novamente para verde. É preciso um timer?
    De momento tenho isto:

    Private Sub btn_adicionar_Click()
    ....
    Me.btn_adicionar.BorderColor = vbYellow
    DoCmd.OpenForm "CONTACTOS"
    End Sub

    Private Sub btn_adicionar_LostFocus()
    Me.btn_adicionar.BorderColor = RGB(147, 219, 112)    'cor verde
    End Sub

    Obrigado.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Mudar cor dos limites do botão ao clicar

    Mensagem  ahteixeira em Ter 05 Abr 2016, 12:40

    Olá Pedro.
    Coloque em botoes no modo "ligado"
    Crie uma sub pasta no caminho do seu projecto chamada botoes, e coloque lá os ficheiros.
    Efetue uma busca aqui no fórum, não falta exemplos.

    Abraço

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Mudar cor dos limites do botão ao clicar

    Mensagem  Gabriel Brunichaki em Ter 05 Abr 2016, 13:26

    Bom dia!

    Tente assim:

    Código:
    Private Sub btn_adicionar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Me.btn_adicionar.BorderStyle = 1
        Me.btn_adicionar.BorderColor = vbYellow
    End Sub

    Private Sub btn_adicionar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Me.btn_adicionar.BorderColor = vbGreen
    End Sub

    Abraço.


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    alpedro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    Re: [Resolvido]Mudar cor dos limites do botão ao clicar

    Mensagem  alpedro em Ter 05 Abr 2016, 17:52

    Olá.
    Com o código deu tudo bem. Obrigado Gabriel Brunichaki e ahteixeira.

    Private Sub btn_adicionar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
       Me.btn_adicionar.BorderStyle = 1
       Me.btn_adicionar.BorderColor = vbYellow
    End Sub

    Private Sub btn_adicionar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
       Me.btn_adicionar.BorderColor = RGB(147, 219, 112) 'cor verde
       DoCmd.OpenForm "CONTACTOS"
    End Sub


    Última edição por alpedro em Ter 05 Abr 2016, 19:00, editado 2 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Mudar cor dos limites do botão ao clicar

    Mensagem  ahteixeira em Ter 05 Abr 2016, 23:22

    Olá.
    Gabriel Brunichaki, obrigado pela dica.
    Pedro obrigado pelo retorno.
    Abraço a todos

      Data/hora atual: Dom 04 Dez 2016, 20:21