Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Looping through nodes in a tree
Posted on 2006-11-17
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.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
5 Comments
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
wend
end sub
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
wend
end sub
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
Loop
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
Loop
Node.Parent.Checked = blnAll
End If
End Sub
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
Loop
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
Loop
Node.Parent.Checked = blnAll
End If
End Sub
Active 1 day ago
More "goodies" on working with TreeViews here:
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_21514062.html
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_21514062.html
Active 7 days ago
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(ndPare
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
Next
End Sub
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(ndPare
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
Next
End Sub
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
Loop
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
Loop
Node.Parent.Checked = All_Checked
End If
End Sub
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
Loop
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
Loop
Node.Parent.Checked = All_Checked
End If
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
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…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code.
This l…
- Microsoft Office
- Office 365
- Microsoft Access
- VBA
- Microsoft Excel
- Visual Basic Classic
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month5 days, 18 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
626 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.