Colorir CheckBox - 2x
Enviado: 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)
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!
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!