在treeview中怎样选中父node则选中所有子node,选中子node则选中相应的父node?

[yang0411]

[wbdx]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Dim tNode As MSComctlLib.Node
If Node.Tag = "Set" Then
Exit Sub
End If
If Node.Selected = True Then
If Not (Node.Parent Is Nothing) Then
Node.Parent.Tag = "Set"
Node.Parent.Selected = True
Node.Parent.Tag = ""
End If
If Not (Node.Children Is Nothing) Then
For Each tNode In Node.Children
tNode.Tag = "Set"
tNode.Selected = True
tNode.Tag = ""
Next
End If
End If
end sub

注意：位测试

[yang0411]

注意：是选中node的checkbox

[yang0411]

怎么没人回答？一定给分

[gameboy999]

common control6.0里的那个treeview的checkbox只有两种状态吧？！