请教一个树节点展开问题。

fnsmydyang

最近碰到一个小问题，一直还未找到解决问题最佳方法，请大侠指点。
当树节点多时，怎样才能做到只展开当前节点，其它节点不展开，多多指教，是否要用到递归算法？

Henry D. Sy

应该本来就是这样的，你能传例子吗

Henry D. Sy

TreeView1.Nodes(索引).Expanded = True

roych

附上红尘的一个实例供参考：

fnsmydyang

谢谢热心的版主，我的意思是只展开当前目录下的节点，其它节点都收起来。

Henry D. Sy

你的例子就是你所要求的呀

Henry D. Sy

呵呵，原来你是想展开这个关闭哪个！！

1. Private Sub xTree_NodeClick(ByVal Node As Object)
   
2.     On Error Resume Next
   
3.     Dim tree0 As TreeView
   
4.     Set tree0 = Me.xTree.Object
   
5.     'tree0.SelectedItem.Parent.Text
   
6. 
   
7.     lngKM = Nz(Right(Node.Key, Len(Node.Key) - 1))
   
8.     Dim I As Integer
   
9.     For I = 1 To tree0.Nodes.Count
   
10.         tree0.Nodes(I).Expanded = False
    
11.     Next I
    
12.     tree0.Nodes(Node.Index).Expanded = True
    
13.    
    
14. End Sub

复制代码

fnsmydyang

版主，这个方法我已用过了，行不通，有问题，要不您再试试。如果当前节点有父节点，如果父节点未展开，收缩了，当前节点怎么展的开呢？

Henry D. Sy

fnsmydyang 发表于 2012-6-29 20:07
版主，这个方法我已用过了，行不通，有问题，要不您再试试。如果当前节点有父节点，如果父节点未展开，收缩 ...

说得是呀

咱家是猫

Private Sub xTree_NodeClick(ByVal Node As Object)

    On Error Resume Next
   
    Dim I As Integer
    Dim tree0 As TreeView
    Set tree0 = Me.xTree.Object
    If inttreeIndex <> 0 Then
        Me.xTree.Nodes(inttreeIndex).Expanded = False
    End If
    inttreeIndex = Node.Index
    lngKM = Nz(Right(Node.Key, Len(Node.Key) - 1))
   
    For I = 1 To tree0.Nodes.Count
        tree0.Nodes(I).Expanded = False
    Next I
    tree0.Nodes(Node.Index).Selected = True         
End Sub