这样更简单:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
TreeView1.PathSeparator = "\"
MsgBox "当前层次:" & UBound(Split(Node.FullPath, "\")) + 1
End Sub
好了,自己搞定了
Public Function getNodeLevel(ByRef nodeCurrent As node, ByVal strRootKey As String) As Integer
Dim pNode As node
Set pNode = nodeCurrent
getNodeLevel = 0
While pNode.Key <> strRootKey
Set pNode = pNode.Parent
getNodeLevel = getNodeLevel + 1
Wend
End Function