VB中treeview控件的使用方法(2)

Private Sub CheckChild(ByVal Node As MSComctlLib.Node, ByVal bCheck As Boolean, Optional ByVal bNext As Boolean = True, Optional ByVal bChild As Boolean = True)

If Not Node Is Nothing Then Node.Checked = bCheck

If Node.Children And bChild Then

Call CheckChild(Node.Child, bCheck, True, True) '对子节点

End If

If bNext Then

Call CheckChild(Node.Next, bCheck, True, '对同一层节点

End If End If End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) Call CheckChild(Node, Node.Checked, False, '处理子节点 End Sub

bChild) True)