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)

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB中treeview控件的使用方法(2)在线全文阅读。