DUVIDA SIMPLES SOBRE DESMACAR/MARCA CHECKBOX

WEBIER 30/12/2010 13:40:50
#360720
quero marcar um checkbox e desmarcar os outros:

Private Sub chkTodos_Click()
chkMensal.Value = Unchecked
chkIntervalo.Value = Unchecked
chkNome.Value = Unchecked
End Sub


só que quando clico no check ele realmente desmarca os outros, mas não marca o check que cliquei... ai tenho q clica pela segunda vez para ele marcar.
WEBIER 30/12/2010 13:54:54
#360722
coloquei o zero... é a mesma coisa de unchecked... deu a mesma coisa

desmarcando ele tá blz... o problema é clicar 2 vezes para marcar o check escolhido
RODRIGO.CAJU 30/12/2010 15:30:08
#360733
Esse caso é típico de utilizar optionbuton dentro de um frame, quando vc marca ele já entende e desmarca os outros.
abç
PEGUDO 30/12/2010 15:41:06
#360734 Resposta escolhida
Cara, e se você usar um If... Else if... End if?

[txt-color=#0000f0]Private Sub[/txt-color] chkTodos_Click()
[txt-color=#0000f0]If[/txt-color] chkMensal.Value = [txt-color=#0000f0]True Then[/txt-color]
chkIntervalo.Value = Unchecked
chkNome.Value = Unchecked
[txt-color=#0000f0]Else If[/txt-color] chkIntervalo.Value = [txt-color=#0000f0]True Then[/txt-color]
chkMensal.Value = Unchecked
chkNome.Value = Unchecked
[txt-color=#0000f0]Else If[/txt-color] chkNome.Value = [txt-color=#0000f0]True Then[/txt-color]
chkIntervalo.Value = Unchecked
chkMensal.Value = Unchecked
[txt-color=#0000f0]End If
End Sub[/txt-color]

Se [txt-color=#0000f0]If[/txt-color] chkMensal.Value = [txt-color=#0000f0]True[/txt-color] der erro ou não funcionar, troque para:
[txt-color=#0000f0]If[/txt-color] chkMensal.Value = Checked, e assim por diante...

Espero ter ajudado
RODRIGO.CAJU 30/12/2010 15:56:59
#360735
Tudo bem já que insistem em fazer do jeito dificil. Cria um array (copia e cola e muda a propriedade index), percorre todo o array desmarcando e marca o checkbox com o index que vc clicou.
Tópico encerrado , respostas não são mais permitidas
Voltar