请给完成树结构代码

向前650809

各位网友好，现有省份选择窗体，树状结构。现想选中父节点，子节点自动选中，取消任一子节点选中，父节点也被取消选中。请给写一下代码。我只写了部分，其中取消子节点选中，父节点也被取消，代码不正确。另外把获取选中省份代码给改进一下

谢谢

eennoo

代码很简单自己研究下了

1. Private Sub TreeView2_NodeCheck(ByVal Node As MSComctlLib.Node)
   
2. Dim objNode As MSComctlLib.Node, flag As Boolean
   
3. If Not Node.Child Is Nothing Then '父节点
   
4. If Node.Checked = True Then flag = True Else flag = False
   
5. 
   
6. Set objNode = Node.Child
   
7. Do
   
8.     objNode.Checked = flag
   
9.     Set objNode = objNode.Next
   
10.     Loop Until objNode Is Nothing
    
11. End If
    
12. 
    
13. If Not Node.Parent Is Nothing Then '子节点
    
14.     Set objNode = Node.Parent
    
15.     objNode.Checked = Node.Checked
    
16. End If
    
17. End Sub

复制代码

向前650809

就上面代码请请教
Dim objNode As MSComctlLib.Node，何意，MSComctlLib.Node何涵义
flag = True Else flag = False，这是指谁的选择性真假
把子节点时代码中objNode.Checked = Node.Checked改成了If Node.Checked = False Then objNode.Checked = False

Private Sub TreeView2_NodeCheck(ByVal Node As MSComctlLib.Node)这是一个什么事件，某一选框被击时事件吗（选中或取消选中）给改写一下获取选中省份的代码
另请加QQ好友，以便请教
谢谢

向前650809

就上面代码请请教
Dim objNode As MSComctlLib.Node，何意，MSComctlLib.Node何涵义
flag = True Else flag = False，这是指谁的选择性真假
把子节点时代码中objNode.Checked = Node.Checked改成了If Node.Checked = False Then objNode.Checked = False

Private Sub TreeView2_NodeCheck(ByVal Node As MSComctlLib.Node)这是一个什么事件，某一选框被击时事件吗（选中或取消选中）给改写一下获取选中省份的代码
另请加QQ好友，以便请教
谢谢
  管理
回复 编辑