点击treeview节点，返回节点的层次

[xxlzg]

如何知道点击的节点位于treeview的第几层

[xxlzg]

还有如何修改节点前横线的宽度，因为treeview一级级展开后太宽了。

[孤独剑_LPZ]

在添加treeview节点时,
Tre1.Nodes.Item(1).Tag = 1 '这个保存层数
则当点击treeview节点时,
msgbox "当前节点是第 " & cstr(Tre1.Nodes.Item(1).Tag) & " 层"

[ArmStronger]

学习

[Tiger_Zhao]

1)

Function GetLevel(ByVal Node As Node) As Long
    Dim iLevel As Long
    
    While Not Node Is Nothing
        iLevel = iLevel + 1
        Set Node = Node.Parent
    Wend
    
    GetLevel = iLevel
End Function

2)TreeView.Indentation 控制每层缩进的宽度。