treeview获取选中 vb_【vb 有checkbox的treeview】 父节点选中,对应的子节点也选中

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

NodeAllExpanded    TreeView1

End    Sub

Private    Sub    TreeView1_NodeCheck(ByVal    Node    As    MSComctlLib.Node)

Call    AllChildSynchro(Node)

Call    AllMaterSynchro(Node)

End    Sub

'//    －选中下级－

Private    Sub    AllChildSynchro(ByVal    NodeChoose    As    Object)

On    Error    Resume    Next

Dim    lNextLoop    As    Long

Dim    ObjChildren    As    Object

If    CBool(NodeChoose.Children    >    0)    Then

Set    ObjChildren    =    NodeChoose.Child

For    lNextLoop    =    1    To    NodeChoose.Children

ObjChildren.Checked    =    NodeChoose.Checked

If    ObjChildren.Children    >    0    Then    Call    AllChildSynchro(ObjChildren)

Set    ObjChildren    =    ObjChildren.Next

Next    lNextLoop

End    If