Go Premium for a chance to win a PS4. Enter to Win


Looping through nodes in a tree

Posted on 2006-11-17
Medium Priority
Last Modified: 2007-12-19
I have a VB6 program with a tree in a form. I already have the tree all populated. What I want to do know is build in the logic that if all of the children of a parent are checked then the parent itself will be checked, or true. If someone could please point me in the right direction with a sample of code, that would be great. Thanks, arajoe.
Question by:arajoe
LVL 143

Assisted Solution

by:Guy Hengel [angelIII / a3]
Guy Hengel [angelIII / a3] earned 200 total points
ID: 17968422
this recursive sub would set the same checked value for all the children by the parent's checked value.

public Sub CheckChildren ( byval n as node )
  dim c as Node

  set c = n.Child
  while not ( c is nothing )
    c.checked = n.checked
    checkchildren c

    set c = c.nextsibling

end sub
LVL 13

Accepted Solution

jmundsack earned 1400 total points
ID: 17968691
Drop a treeview on a form and paste in this code:

Option Explicit

Private Sub Form_Load()
    Dim nod As Node
    With TreeView1
        Set nod = .Nodes.Add(, tvwFirst, "fruit", "Fruit")
        nod.Expanded = True
        .Nodes.Add "fruit", tvwChild, "apple", "Apple"
        .Nodes.Add "fruit", tvwChild, "banana", "Banana"
        .Nodes.Add "fruit", tvwChild, "orange", "Orange"
        Set nod = .Nodes.Add(, tvwFirst, "veg", "Vegetable")
        nod.Expanded = True
        .Nodes.Add "veg", tvwChild, "asparagus", "Asparagus"
        .Nodes.Add "veg", tvwChild, "cucumber", "Cucumber"
        .Nodes.Add "veg", tvwChild, "zucchini", "Zucchini"
    End With
End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
    Dim nod As Node
    Dim blnAll As Boolean
    If Node.Children > 0 Then
        Set nod = Node.Child
        Do While Not nod Is Nothing
            nod.Checked = Node.Checked
            Set nod = nod.Next
    End If
    If Not Node.Parent Is Nothing Then
        blnAll = True
        Set nod = Node.Parent.Child
        Do While Not nod Is Nothing
            If Not nod.Checked Then
                blnAll = False
                Exit Do
            End If
            Set nod = nod.Next
        Node.Parent.Checked = blnAll
    End If
End Sub

LVL 86

Assisted Solution

by:Mike Tomlinson
Mike Tomlinson earned 200 total points
ID: 17969104
LVL 28

Assisted Solution

Ark earned 200 total points
ID: 17969674
Another approach can be used if you have no duplicate nodes in each level in treeview:

Private Sub Form_Load()
   Dim nd As Object, ndParent As Object
   Dim i As Long, j As Long, k As Long
   For i = 1 To 5
      Set ndParent = TreeView1.Nodes.Add(, , , "Node Level 1 #" & i)
      For j = 1 To 5
          Set nd = TreeView1.Nodes.Add(ndParent, tvwChild, , "Node Level 2 #" & j)
          For k = 1 To 5
              Call TreeView1.Nodes.Add(nd, tvwChild, , "Node Level 3 #" & j)
          Next k
      Next j
   Next i
End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As Node)
   Dim sPath As String, length As Long
   sPath = Node.FullPath
   length = Len(sPath)
   For Each nd In TreeView1.Nodes
       If Len(nd.FullPath) >= length Then
          If Left(nd.FullPath, length) = sPath Then
             nd.Checked = Node.Checked
          End If
       End If
End Sub

Author Comment

ID: 17980060
Thanks to everyone. I went with the answer I did because it allowed for a more recursive function. The code I ended up with is below. Thanks again, arajoe.

Private Sub Check_Parents(ByRef Node As MSComctlLib.Node, ByVal Node_Checked_Value As Boolean)

    Dim Child As MSComctlLib.Node
    Dim All_Checked As Boolean
    If Node.Children > 0 Then
        Set Child = Node.Child
        Do While Not Child Is Nothing
            Child.Checked = Node_Checked_Value
            UnAssign_SUP Child
            Check_Parents Child, Child.Checked
            Set Child = Child.Next
    End If
    If Not Node.Parent Is Nothing Then
        All_Checked = True
        Set Child = Node.Parent.Child
        Do While Not Child Is Nothing
            If Not Child.Checked Then
                All_Checked = False
                Exit Do
            End If
            Set Child = Child.Next
        Node.Parent.Checked = All_Checked
    End If
End Sub

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

971 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question