Página 1 de 1

Colorir CheckBox - 2x

Enviado: Qua Jun 06, 2018 5:43 pm
por lucasavilez
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! :)

Re: Colorir CheckBox - 2x

Enviado: Qui Jun 07, 2018 10:22 am
por Mikel Silveira Fraga
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.

Re: Colorir CheckBox - 2x

Enviado: Ter Jun 12, 2018 4:19 pm
por lucasavilez
Obrigado Mikael!

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