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

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

    Compartilhe
    avatar
    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, 8:44 am

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 05 Abr 2016, 7:40 am

    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
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Gabriel Brunichaki em Ter 05 Abr 2016, 8:26 am

    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
    avatar
    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, 12:52 pm

    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, 2:00 pm, editado 2 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 05 Abr 2016, 6:22 pm

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

      Data/hora atual: Sex 15 Dez 2017, 4:27 pm