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
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