Checking & UnChecking in TreeView Control

[007shahid]

I have set the options for Check boxes in my TreeView Control (MS Windows Common Controls). In the NodeCheck event of the control, I want to write a code in such a way that; when a Node is Un/checked all child nodes of that node if any should also have the same checked value.
Can anyone please help me on this problem

[The Hobo]

'from Planet Source Code
 
 
Public Sub TreeCheckBoxes(TR As TreeView, CurrentNode As Node)
Dim lbDirty As Boolean, liCounter As Integer
Dim lParentNode As Node, lChildNode As Node
    
  lbDirty = False
  liNodeIndex = CurrentNode.Index
 
  If CurrentNode.Checked = True Then
    If Not TR.Nodes.Item(CurrentNode.Index).Child Is Nothing Then
      
      Set lParentNode = TR.Nodes.Item(CurrentNode.Index).Child.FirstSibling
 
 
            Do While Not lParentNode Is Nothing
                lParentNode.Checked = CurrentNode.Checked
 
 
                If Not lParentNode.Child Is Nothing Then
                    Set lChildNode = lParentNode.Child
 
 
                    Do While Not lChildNode Is Nothing
                        lChildNode.Checked = CurrentNode.Checked
 
 
                        If Not lChildNode.Next Is Nothing Then
                            Set lChildNode = lChildNode.Next
                        Else
                            Set lChildNode = lChildNode.Child
                        End If
                    Loop
                End If
                Set lParentNode = lParentNode.Next
            Loop
        End If
 
    ElseIf CurrentNode.Checked = False Then 'node is unchecked
 
 
        If Not TR.Nodes.Item(CurrentNode.Index).Child Is Nothing Then
            Set lParentNode = TR.Nodes.Item(CurrentNode.Index).Child.FirstSibling
 
 
            Do While Not lParentNode Is Nothing
                lParentNode.Checked = CurrentNode.Checked
 
 
                If Not lParentNode.Child Is Nothing Then
                    Set lChildNode = lParentNode.Child
 
 
                    Do While Not lChildNode Is Nothing
                        lChildNode.Checked = CurrentNode.Checked
 
 
                        If Not lChildNode.Next Is Nothing Then
                            Set lChildNode = lChildNode.Next
                        Else
                            Set lChildNode = lChildNode.Child
                        End If
                    Loop
                End If
                Set lParentNode = lParentNode.Next
            Loop
        End If
 
        Set lParentNode = Nothing
        Set lChildNode = Nothing
 
 
        If Not CurrentNode.Parent Is Nothing Then
            Set lParentNode = CurrentNode.Parent.Child
 
 
            Do While Not lParentNode Is Nothing
                Set lChildNode = lParentNode.FirstSibling
 
 
                Do While Not lChildNode Is Nothing
 
 
                    If lChildNode.Checked = True Then
                        lbDirty = True
                        Exit Do
                    End If
 
                    Set lChildNode = lChildNode.Next
                Loop
 
                If Not lParentNode.Parent Is Nothing Then
                    Set lParentNode = lParentNode.Parent
                Else
                    Set lParentNode = lParentNode.Parent
                End If
            Loop
        End If
    End If
    Set CurrentNode = Nothing
    Set lParentNode = Nothing
    Set lChildNode = Nothing
End Sub

[007shahid]

thanks

[The Hobo]

I just implimented this into my Custom TreeView Control, and realized that you could shorten it almost 50% and get the same functionality (is that a word?):

Public Sub TreeCheckBoxes(TR As TreeView, CurrentNode As Node)
Dim lbDirty As Boolean, liCounter As Integer
Dim lParentNode As Node, lChildNode As Node
    
  lbDirty = False
  liNodeIndex = CurrentNode.Index
 
    If Not TR.Nodes.Item(CurrentNode.Index).Child Is Nothing Then
      
      Set lParentNode = TR.Nodes.Item(CurrentNode.Index).Child.FirstSibling
 
 
            Do While Not lParentNode Is Nothing
                lParentNode.Checked = CurrentNode.Checked
 
 
                If Not lParentNode.Child Is Nothing Then
                    Set lChildNode = lParentNode.Child
 
 
                    Do While Not lChildNode Is Nothing
                        lChildNode.Checked = CurrentNode.Checked
 
 
                        If Not lChildNode.Next Is Nothing Then
                            Set lChildNode = lChildNode.Next
                        Else
                            Set lChildNode = lChildNode.Child
                        End If
                    Loop
                End If
                Set lParentNode = lParentNode.Next
            Loop
        End If
 
    Set CurrentNode = Nothing
    Set lParentNode = Nothing
    Set lChildNode = Nothing
End Sub

[The Hobo]

This was quite some time ago, but I just wrote up an even better snippet for this on my site:

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) 
Dim iChild As Integer, nodX As Node 
 
  If Node.Children <> 0 Then 'if node has children 
    Set nodX = Node.Child 
    For iChild = 1 To Node.Children 
      nodX.Checked = Node.Checked 
      Set nodX = nodX.Next 
    Next 
  End If 
End Sub

Simple and compact. http://www.vbshelf.com/snippets.php?...=controls&id=7