Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Colorir CheckBox - 2x

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
lucasavilez
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Jun 06, 2018 5:31 pm

Colorir CheckBox - 2x

Mensagem por lucasavilez » Qua Jun 06, 2018 5:43 pm

Olá amigos, tudo bem?

Estou com uma dúvida em relação a um form que estou criando e gostaria de saber se alguém poderia me ajudar.

Bem, explicando didaticamente:

- Tenho um CheckBox1 com o enabled = False na Form;

- Quando o usuário o clica, o enabled vira True e pinta o Caption dele de Vermelho;

- Ao clicar novamente no CheckBox1, o enable continua como True e pinta o Caption dele de Verde;

- Por fim, ao clicar pela terceira vez, o enable vira False e volta a cor padrão Preto.




- Como eu programei esse formato -
(Sendo countercolor setado = 0 no evento Checkbox1_click(), e a variável CxSel é setado = CheckBox1)

Código: Selecionar todos

Public Sub checkboxcolor()


If countercolor = 1 Then
    
    CxSel.ForeColor = &HC000&
    CxSel.Value = True
    countercolor = countercolor + 1
    
ElseIf countercolor = 2 Then

    CxSel.ForeColor = &HC00000
    CxSel.Value = True
    countercolor = 0

Else

countercolor = 0

        If CxSel = True Then

        countercolor = countercolor + 1

        CxSel.ForeColor = &HC0&

        Else

        CxSel.ForeColor = &H80000012

        End If

End If
End Sub

Problema: Eu tenho vários CheckBox's e como estou usando uma variável global, se eu der 1 clique na checkbox 1 e em seguida clicar na checkbox2, a checkbox2 pega a segunda cor.

Alguém pode me dar a luz da solução?

Eu não queria ter que fazer um evento POR checkbox, queria fazer uma função global que atendesse a todas as checkboxs, pois tem muuuuito checkbox na Form.


Obrigado amigos! :)



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1085
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Bragança Paulista - SP

Re: Colorir CheckBox - 2x

Mensagem por Mikel Silveira Fraga » Qui Jun 07, 2018 10:22 am

Lucas, bom dia e seja muito bem vindo ao fórum.

Cara, tem como fazer isso facilmente, utilizando Módulos de Classe.

Dê uma olhada no exemplo desse vídeo e tente replicar:
- Excel VBA Classe para Incluir Mascaras em TextBox (Cleidson Santos)

Ele explica muito bem esse conceito.

Caso tenha alguma dificuldade na elaboração desta rotina, nos retorne.

Forte abraços e bons estudos.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Skype: mikelsf | Linked In

lucasavilez
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Jun 06, 2018 5:31 pm

Re: Colorir CheckBox - 2x

Mensagem por lucasavilez » Ter Jun 12, 2018 4:19 pm

Obrigado Mikael!

Vou estudar o conteúdo e qualquer coisa volto aqui pra pedir um SOS heheheh.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder