MARCA SOMENTE UM CHECKBOX DE UM LISTVIEW.
Olá Pessoal
Estou com o Listview com chechbox.
Como faço pra deixa somente um checkbox marcado?
Estou com o Listview com chechbox.
Como faço pra deixa somente um checkbox marcado?
Olá, BOSCOSANTANNA
Quando houver o clique marcando true, faça um laço (algo como um for/next) colocando false em todos que não tenham Key igual ao Key da linha que foi clicada.
A propósito, seu post abaixo é de abril de 2015, tem quase 1 ano. Poderia encerrá-lo?
http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446022&pagina=1
De 11 tópicos (incluindo este) tem apenas 2 abertos (incluindo este, portanto completamente justificável).
Mas o tópico do link acima você esqueceu.
Poderia encerrá-lo, por gentileza?
Quando houver o clique marcando true, faça um laço (algo como um for/next) colocando false em todos que não tenham Key igual ao Key da linha que foi clicada.
A propósito, seu post abaixo é de abril de 2015, tem quase 1 ano. Poderia encerrá-lo?
http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446022&pagina=1
De 11 tópicos (incluindo este) tem apenas 2 abertos (incluindo este, portanto completamente justificável).
Mas o tópico do link acima você esqueceu.
Poderia encerrá-lo, por gentileza?
Legal, hein, Sinclair.
Pelo jeito, quando quem posta uma dúvida aqui é um usuário que você não conhece, você investiga a vida dele no Fórum, né? rsrsrs.
Muito bom, assim dá pra saber quando é algum daqueles que só aparecem uma vez e depois de receber a resposta, nunca mais.....
Apoiado!
Pelo jeito, quando quem posta uma dúvida aqui é um usuário que você não conhece, você investiga a vida dele no Fórum, né? rsrsrs.
Muito bom, assim dá pra saber quando é algum daqueles que só aparecem uma vez e depois de receber a resposta, nunca mais.....
Apoiado!
Bom dia SINCLAIR
Valeu pela dica, fico assim o código.
Dim i As Integer
Dim codigo As String
codigo = ls.Items(0).Text
For i = 0 To ls.Items.Count - 1 Step i + 1
If ls.Items(i).Checked = True And codigo <> ls.Items(i).Text Then
ls.Items(i).Checked = False
End If
Next
Obrigado.
Sobre o tópico abaixo tinha esquecido, valeu.
Mas não encontrei o botão para encerrar, como faço?
http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446022&pagina=1
Valeu pela dica, fico assim o código.
Dim i As Integer
Dim codigo As String
codigo = ls.Items(0).Text
For i = 0 To ls.Items.Count - 1 Step i + 1
If ls.Items(i).Checked = True And codigo <> ls.Items(i).Text Then
ls.Items(i).Checked = False
End If
Next
Obrigado.
Sobre o tópico abaixo tinha esquecido, valeu.
Mas não encontrei o botão para encerrar, como faço?
http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446022&pagina=1
Tópico encerrado , respostas não são mais permitidas