研究treeview物件2

從excel home中找到不錯的教學
順便把註解修成繁體中文
還有了解語法功能
把所學整理到這裡
====================
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(, , "課程科目", "課程科目", "book3")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "語文", "語文", "book1")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "數學", "數學", "book1")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "外語", "外語", "book1")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "政治", "政治", "book1")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "物理", "物理", "book1")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "化學", "化學", "book1")
Set NodeX = TreeView1.Nodes.Add("課程科目", tvwChild, "生物", "生物", "book1")
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 = tvwTreelinesPlusMinusPictureText
End Sub

Private Sub Treeview1_Nodeclick(ByVal Node As MSComctlLib.Node)
'返回對象路徑
Label3.Caption = Node.FullPath
End Sub

Private Sub Treeview1_NodeCheck(ByVal Node As MSComctlLib.Node)
'複選框事件
Label5.Caption = "當前選擇的節點是:" & TreeView1.SelectedItem.Text
End Sub