怎么使单击treeview控件的父节,来使节点展开,再单击来怎么使节点缩起来呢???

Question

怎么使单击treeview控件的父节,来使节点展开,再单击怎么来使节点缩起来呢???

Answer 1

treeview好像不用考虑这方面问题吧?
--------------------------
亮剑工作室

Answer 2

TreeView.Nodes(i).Expanded = True  'True:展开   False:缩起

Answer 3

Private Sub Tree1_NodeClick(ByVal Node As ComctlLib.Node)
If Node.Child Is Nothing Then
MsgBox Node.Text
Else
Node.Expanded = Not (Node.Expanded)
End IfEnd Sub

Answer 4

打开hot track就好了，属性中有

Answer 5

我刚用完
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    If Node.Parent Is Nothing Then
        If Node.Expanded Then
            Node.Expanded = False
        Else
            Node.Expanded = True
        End If
    End If
End Sub