GetNodeLevel
Function GetNodeLevel(aNode as node) as Integer Dim level as Integer On Error Goto ExitGetNodeLevel Do While not aNode.parent is nothing level = level + 1 set aNode = aNode.parent loop ExitGetNodeLevel: Exit Function End Function
Function GetNodeLevel(aNode as node) as Integer
Dim level as Integer
On Error Goto ExitGetNodeLevel
Do While not aNode.parent is nothing
level = level + 1
set aNode = aNode.parent
loop
ExitGetNodeLevel:
Exit Function
End Function
( getnodelevel.html )- by Paolo Puglisi
- Modifica del 17/12/2023