Excel TreeView

Private Sub UserForm_Initialize() '初始化ImageList控件,添加图片   Dim img As New ImageList   img.ListImages.Add 1, "book1", LoadPicture(ThisWorkbook.Path & "\book1.gif")   img.ListImages.Add 2, "book2", LoadPicture(ThisWorkbook.Path & "\book2.gif")   img.ListImages.Add 3, "book3", LoadPicture(ThisWorkbook.Path & "\book3.gif")      Set TreeView1.ImageList = img      '设置显示节点路径时的分隔符   TreeView1.PathSeparator = "\" End Sub 复制代码 Private Sub CommandButton1_Click()   Dim nodex As Node   TreeView1.Nodes.Clear   '添加节点   Set nodex = TreeView1.Nodes.Add(, , "研究院", "研究院", "book1")   Set nodex = TreeView1.Nodes.Add("研究院", tvwChild, "汇智", "汇智", "book2")   Set nodex = TreeView1.Nodes.Add("研究院", tvwChild, "众智", "众智", "book2")   Set nodex = TreeView1.Nodes.Add("研究院", tvwChild, "星汇", "星汇", "book2")   Set nodex = TreeView1.Nodes.Add("研究院", tvwChild, "亿迅", "亿迅", "book2")   Set nodex = TreeView1.Nodes.Add("研究院", tvwChild, "普信", "普信", "book2") End Sub 复制代码 Private Sub CommandButton2_Click() '设置复选框显示 TreeView1.CheckBoxes = True End Sub 复制代码 Private Sub CommandButton3_Click() '清除节点 TreeView1.Nodes.Clear End Sub 复制代码 Private Sub CommandButton4_Click() '去除复选框 TreeView1.CheckBoxes = False End Sub 复制代码 Private Sub CommandButton5_Click() '开启热跟踪功能 TreeView1.HotTracking = True End Sub 复制代码 Private Sub CommandButton6_Click() '编辑节点 TreeView1.StartLabelEdit End Sub 复制代码 Private Sub CommandButton7_Click() '显示根节点连线 TreeView1.LineStyle = tvwRootLines End Sub 复制代码 Private Sub CommandButton8_Click() '隐藏根节点连线 TreeView1.LineStyle = tvwTreeLines End Sub 复制代码 Private Sub CommandButton9_Click() '若所选为根节点，将其子节点连线一起去除 TreeView1.Nodes.Remove TreeView1.SelectedItem.Index End Sub 复制代码 Private Sub CommandButton10_Click() '统计节点个数 Label1.Caption = "TreeView控件中节点对象的个数为:" & TreeView1.Nodes.Count & "个" End Sub 复制代码 Private Sub CommandButton11_Click() '所选节点显示为粗体 TreeView1.SelectedItem.Bold = True End Sub 复制代码 Private Sub CommandButton12_Click() '展开所有节点 Dim i As Long For i = 1 To TreeView1.Nodes.Count    TreeView1.Nodes(i).Expanded = True Next i End Sub 复制代码 Private Sub CommandButton13_Click() '折叠所有节点 Dim i As Long For i = 1 To TreeView1.Nodes.Count    TreeView1.Nodes(i).Expanded = False Next i End Sub 复制代码 Private Sub OptionButton1_Click() '节点仅为文本 TreeView1.Style = tvwTextOnly End Sub 复制代码 Private Sub OptionButton2_Click() '节点仅为图像 TreeView1.Style = tvwPictureText End Sub 复制代码 Private Sub OptionButton3_Click() '节点为符号文本 TreeView1.Style = tvwPlusMinusText End Sub 复制代码 Private Sub OptionButton4_Click() '为直线文本 TreeView1.Style = tvwTreelinesText End Sub 复制代码 Private Sub OptionButton5_Click() '节点显示恢复正常 TreeView1.Style = tvwTreelinesPlusMinusText End Sub 复制代码 Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)   '返回对象路径   Label2.Caption = Node.FullPath End Sub 复制代码