【CSDN】【散分问题，请问如何判断树型节点是未结点，如何取得此结点的层次数，如何依次取得此结点所在路径的所有结贴名称】

[drillmaster]

请问
1)如何判断树型节点是未结点，
2)如何取得此结点的层次数，
3)如何依次取得此结点所在路径的所有结贴名称

[TechnoFantasy]

判断节点是否为末节点：

Option Explicit

Private Sub Form_Load()
Dim nodX As Node
Dim nodX1 As Node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX1 = TreeView1.Nodes.Add("C1", tvwChild, "CC1", "Level2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesPlusMinusText ' Style 4.
TreeView1.BorderStyle = vbFixedSingle

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If (Node.Child Is Nothing) Then
MsgBox "节点是叶子节点"
Else
MsgBox "节点不是叶子节点"
End If
End Sub

[TechnoFantasy]

获得节点层次：

Option Explicit

Private Sub Form_Load()
Dim nodX As Node
Dim nodX1 As Node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX1 = TreeView1.Nodes.Add("C1", tvwChild, "CC1", "Level2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesPlusMinusText ' Style 4.
TreeView1.BorderStyle = vbFixedSingle

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim a

a = Split(Node.FullPath, "\")

MsgBox ("节点层次：" & (UBound(a) - LBound(a) + 1))
End Sub

[TechnoFantasy]

'依次取得此结点所在路径的所有结贴名称

Option Explicit

Private Sub Form_Load()
Dim nodX As Node
Dim nodX1 As Node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX1 = TreeView1.Nodes.Add("C1", tvwChild, "CC1", "Level2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesPlusMinusText ' Style 4.
TreeView1.BorderStyle = vbFixedSingle

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim a
Dim i As Integer

a = Split(Node.FullPath, "\")

List1.Clear
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next i
End Sub

[rainstormmaster]

如何取得此结点的层次数
Option Explicit

Private Sub Form_Load()
Dim nodX As node
Dim nodX1 As node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX1 = TreeView1.Nodes.Add("C1", tvwChild, "CC1", "Level2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesPlusMinusText ' Style 4.
TreeView1.BorderStyle = vbFixedSingle

End Sub

Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node)
MsgBox "节点位于第" + CStr(getlayer(node, TreeView1)) + "层"
End Sub

Private Function getlayer(node As node, treeview As treeview) As Long '根节点为第1层
Dim pnode As node
Dim num As Long
num = 1
Set pnode = node
Do While Not pnode.Parent Is Nothing
Set pnode = pnode.Parent
num = num + 1
Loop
getlayer = num
End Function

[射天狼]

http://expert.csdn.net/Expert/topic/2364/2364307.xml?temp=.9630701

[hacker007]

如何依次取得此结点所在路径的所有结贴名称

Option Explicit

Private Sub Form_Load()
Dim nodX As Node
Dim nodX1 As Node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX1 = TreeView1.Nodes.Add("C1", tvwChild, "CC1", "Level2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesPlusMinusText
TreeView1.BorderStyle = vbFixedSingle

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim lvItem As Node
Set lvItem = TreeView1.SelectedItem
While Not lvItem Is Nothing
List1.AddItem lvItem.Text
Set lvItem = lvItem.Parent
Wend
End Sub