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
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 TreeView1.SelectedItem.Children <= 0 Then
MsgBox "节点是叶子节点"
Else
MsgBox "节点不是叶子节点"
End If
End Sub