CHECKED NOTHING NO TREEVIEW

 Tópico anterior Próximo tópico Novo tópico

CHECKED NOTHING NO TREEVIEW

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#496263 - 14/02/2021 13:24:15

COQUITO
BELO HORIZONTE
Cadast. em:Junho/2014


 Anexos estao visíveis somente para usuários registrados

olá pessoal,

estou com problema numa no checked do treeview, quando eu ativo o checked para que seja incluido no grupo de contatos
na terceira marcação me devolve com valor nothing,
    
Dim BolStatus As Boolean
            For Each ChekNodes As TreeNode In Tr_ListExtrairDados.Nodes
                BolStatus = ChekNodes.Checked
                If BolStatus = True Then
                    ChekNodes.Remove()
                End If
            Next


sendo que está na marcação os 3 corretamente.

alguma ideia que possa ajudar?





#496264 - 14/02/2021 13:26:46

COQUITO
BELO HORIZONTE
Cadast. em:Junho/2014


 Anexos estao visíveis somente para usuários registrados

aqui por exemplo está marcado os 3 grupos da lista,
mais quando faço o for ele traz o proximo como nothign





Resposta escolhida #496265 - 14/02/2021 16:39:28

JABA
CABO FRIO
Cadast. em:Agosto/2005


Teste assim:

public sub RemoveCheckedNodes(nodes as TreeNodeCollection)
   for i as integer = nodes.Count - 1 to 0 step - 1
     if nodes(i).Checked then
       nodes.RemoveAt(i)
     else
       RemoveCheckedNodes(nodes(i).Nodes)
     end if
    next
end sub


_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#496267 - 14/02/2021 23:02:25

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Eu faria um método de extensão que retorne só os que estão checked:

<Extension()>
Friend Shared Iterator Function Descendants(ByVal c As TreeNodeCollection) As IEnumerable(Of TreeNode)
    For Each node In c.OfType(Of TreeNode)()
        Yield node

        For Each child In node.Nodes.Descendants()
            Yield child
        Next
    Next
End Function

Daí pra usar:

Dim selectedNodes = myTreeView.Nodes.Descendants().Where(Function(n) n.Checked).[Select](Function(n) n.Text).ToList()



_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#496269 - 15/02/2021 00:01:56

COQUITO
BELO HORIZONTE
Cadast. em:Junho/2014


Pessoal, funcionou

obrigado.!




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por COQUITO em 15/02/2021 00:02:08