Tree help

[hyousuf2]

i have made a tree with checkboxes, i want to write a code that on its click event the node itself get selected/deselected and if it is a parent node then all of its child should also get selected/deselected. the tree has only two levels. this is the initial code which i write

Dim nd As Node
    Set nd = Tree.Nodes.Add()
    nd.Key = "AB"
    nd.Text = "Address Book"
    nd.Tag = "HEADS"
        
    
    Set nd = Tree.Nodes.Add()
    nd.Key = "QR"
    nd.Text = "Query List"
    nd.Tag = "HEADS"

[Luke K]

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
 
    On Error GoTo errh:
    Dim nodex As Object
 
    If Node.Children = 0 Then
        Call MsgBox("This node has no children!", vbInformation + vbOKOnly, "!")
        Exit Sub
    Else
        Set nodex = Node.Child
        TreeView1.Nodes(nodex.Index).Checked = True
        While (Not IsNull(nodex))
            Set nodex = nodex.Next
            TreeView1.Nodes(nodex.Index).Checked = True
        Wend
    End If
errh:
    Call MsgBox("All children of " & Node.Text & "(" & Node.Index & ") Checked")
 
End Sub

[smartrajesh]

first of all you have to find the no of childrens for a particular parent node.

like... "tree1.children" now u can get the no of children and u should check the condition every click of tree control whether the value is equal to the no of children. using variable..(increment the variable i+1 for every click ok)....r u got it....

[hyousuf2]

the supplied code is not working, if it is a parent node n i check it, it just displays the msg n its children does not get checked

[hyousuf2]

hi
i managed to rectify the mistake maself but thnkx neways
check out ma next thread

[Luke K]

Well, Yes, that code does work
You just arent adding any child nodes from the look of the first post of this thread.