La vérification des nœuds de Treeview

Je suis tout nouveau sur ce treeview d'affaires. J'ai un fixe treeview, très simple et basique. Seulement deux des niveaux, des nœuds parents et enfants. J'ai juste besoin de deux choses de cette arborescence.

1) Si le parent est cochée, cochez tous les nœuds enfants.

2) Si un seul nœud enfant n'est pas cochée, décochez nœud parent.

Que c'est! J'ai été la recherche de ce pour 30 minutes et je ne peux pas le trouver. Peut-être parce que mon vb.net est vieux, il ne semble pas être la même que les autres =/je suis en utilisant vb.net 2003. Merci beaucoup 😀

InformationsquelleAutor Paul Bang-Jensen | 2011-08-31

treeview vb.net

Exemple de travail en VB.Net en 2008, mais il devrait travail en 2003:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  For i As Integer = 1 To 3
    Dim node As New TreeNode("Parent #" & i.ToString)
    node.Nodes.Add("Child #1")
    node.Nodes.Add("Child #2")
    node.Expand()

    TreeView1.Nodes.Add(node)
  Next
End Sub

Private Sub TreeView1_AfterCheck(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles TreeView1.AfterCheck
  RemoveHandler TreeView1.AfterCheck, AddressOf TreeView1_AfterCheck

  For Each node As TreeNode In e.Node.Nodes
    node.Checked = e.Node.Checked
  Next

  If e.Node.Checked Then
    If e.Node.Parent Is Nothing = False Then
      Dim allChecked As Boolean = True

      For Each node As TreeNode In e.Node.Parent.Nodes
        If Not node.Checked Then
          allChecked = False
        End If
      Next

      If allChecked Then
        e.Node.Parent.Checked = True
      End If

    End If
  Else
    If e.Node.Parent Is Nothing = False Then
      e.Node.Parent.Checked = False
    End If
  End If

  AddHandler TreeView1.AfterCheck, AddressOf TreeView1_AfterCheck
End Sub

elle fonctionne. après peaufiner un peu. Si Pas de e.Nœud.Vérifié AndAlso e.Nœud.Parent IsNot Rien Alors Si e.Nœud.Checked = False Et e.Nœud.Le Parent Est Rien = Faux) Alors
1 plus de chose, comment puis-je obtenir le parent vérifié s'il arrive que tous les nœuds enfants sont-ils contrôlés?
VB2003 n'a pas AndAlso ou IsNot? J'ai oublié à ce sujet.
Mise à jour de répondre en conséquence.
fonctionne comme un charme! merci, l'homme. je suis étudiant le code, il est vraiment unique dans vb.net!
je n'ai pas tout à fait comprendre le code 🙁 je voudrais élargir mon treeview à 3 couches. pouvez-vous aider à nouveau?
Cela ne fonctionne pas passé le parent immédiat de la couche. c'est à dire. il ne veut pas répéter tout le chemin jusqu'à l'arbre. une pour info pour ceux qui cherchent à l'appliquer à un TreeView avec plus de 2 niveaux
La question spécifié pour seulement 2 niveaux.
Vrai. Désolé, j'ai oublié de upvote. Je ne veux pas dire que vous n'avez pas répondu à la question. J'étais juste clarifier un gotchya pour quelqu'un qui s'attendait à plus. cheers
BTW, cette réponse fait la même chose pour plusieurs niveaux.

InformationsquelleAutor LarsTech

Vous pouvez essayer cette version plus courte

   Private Sub treeview1_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeview1.AfterCheck

    Dim objNode As TreeNode = e.Node
    Dim bCheck As Boolean = e.Node.Checked

    For Each ChildNode As TreeNode In objNode.Nodes
        ChildNode.Checked = bCheck
    Next
End Sub

InformationsquelleAutor Daniel Lee

J'avais fondamentalement la même exigence, mais je voulais aussi que si tous les nœuds enfants sont vérifiées, vérifier le nœud parent.

Voici mon code testé aujourd'hui en VS 2013:

Private Sub TreeView1_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterCheck
    If e.Action <> TreeViewAction.ByMouse And e.Action <> TreeViewAction.ByKeyboard Then Exit Sub

    Dim CheckedNode As TreeNode = e.Node
    Dim CheckedNodeIsRoot As Boolean = CheckedNode.Parent Is Nothing
    Dim ParentNode As TreeNode = CheckedNode.Parent

    Dim ChildOneUnchecked As Boolean = False

    If CheckedNodeIsRoot Then
        For Each ChildNode As TreeNode In CheckedNode.Nodes
            ChildNode.Checked = CheckedNode.Checked
        Next
    Else
        If CheckedNode.Checked Then
            For Each ChildNode As TreeNode In ParentNode.Nodes
                If Not ChildNode.Checked Then ChildOneUnchecked = True
            Next
            If ChildOneUnchecked Then
                ParentNode.Checked = False
            Else
                ParentNode.Checked = True
            End If
        Else
            ParentNode.Checked = False
        End If
    End If
End Sub

Je dois ajouter qu'il est non récursif, donc il ne fonctionne que sur deux niveaux.

InformationsquelleAutor Javier Arce

Cela fonctionne sur VB.net 2010. il est basé sur Daniel Lee code

Private Sub TreeView1_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck

    Dim childNodeCK As TreeNode = e.Node
    Dim NodeChecked As Boolean = e.Node.Checked

    For Each ChildNode As TreeNode In childNodeCK.Nodes
        If NodeChecked = True Then
            ChildNode.Checked = NodeChecked
        End If
    Next

    If childNodeCK.Checked = False Then
        If e.Node.Parent Is Nothing = False Then
            e.Node.Parent.Checked = False
        End If
    End If

End Sub

InformationsquelleAutor Saasaan

Private Sub Tv1_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles Tv1.AfterCheck
Try
Dim A As Boolean = e.Node.Checked
If e.Action = TreeViewAction.ByMouse Or e.Action = TreeViewAction.ByKeyboard Then
CUchkall(e.Node, A)
End If
UnCheckParentNodes(e.Node)
Call CuChild(e.Node)
Catch
End Try
End Sub
Private Sub CuChild(ByVal iNode As TreeNode)
Try
Dim E As Boolean = True
If iNode.Parent IsNot Nothing Then
For Each M As TreeNode In iNode.Parent.Nodes
If M.Checked = False Then E = False
Next
iNode.Parent.Checked = E
End If
Catch 
End Try
End Sub
Private Sub CUchkall(ByVal iNode As TreeNode, COU As Boolean)
Try
If iNode.Nodes IsNot Nothing Then
For Each N As TreeNode In iNode.Nodes
N.Checked = COU
Call CUchkall(N, COU)
Next
End If
Catch
End Try
End Sub
Private Sub UnCheckParentNodes(ByVal iNode As TreeNode)
Try
If iNode.Checked = False AndAlso iNode.Parent IsNot Nothing Then
iNode.Parent.Checked = False
UnCheckParentNodes(iNode.Parent)
End If
Catch
End Try
End Sub

Veuillez envisager d'ajouter certains explanantion à votre code. OP en apprendrez beaucoup plus de savoir pourquoi son code fonctionne et sur les mesures qui sont nécessaires.

InformationsquelleAutor Pazahr

- Je modifier Javier Arce codes pour multiniveau treeview (une version récursive). Voici mes codes.

Private Sub treeTestsSelection_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles treeTestsSelection.AfterCheck
If e.Action <> TreeViewAction.ByMouse And e.Action <> TreeViewAction.ByKeyboard Then Exit Sub
CheckAllNodes(e.Node)
CheckAllNodesForParent(e.Node)
End Sub
Public Sub CheckAllNodes(ByRef TreeNodeToCheck As TreeNode)
Dim val As Boolean = TreeNodeToCheck.Checked
For Each n As TreeNode In TreeNodeToCheck.Nodes
n.Checked = val
If n.GetNodeCount(True) > 0 Then
CheckAllNodes(n)
End If
Next
End Sub
Public Sub CheckAllNodesForParent(ByRef CheckedTreeNode As TreeNode)
If CheckedTreeNode.Checked Then
If CheckedTreeNode.Parent Is Nothing = False Then
Dim allChecked As Boolean = True
For Each node As TreeNode In CheckedTreeNode.Parent.Nodes
If Not node.Checked Then
allChecked = False
End If
Next
If allChecked Then
CheckedTreeNode.Parent.Checked = True
CheckAllNodesForParent(CheckedTreeNode.Parent)
End If
End If
Else
If CheckedTreeNode.Parent Is Nothing = False Then
CheckedTreeNode.Parent.Checked = False
CheckAllNodesForParent(CheckedTreeNode.Parent)
End If
End If
End Sub

InformationsquelleAutor Ömür GÜRBÜZ

Vous devez vous connecter pour publier un commentaire.