TreeView（樹狀檢視）

• 設定使用元件：Microsoft Windows Common Controls 6.0 (SP6)

• 使用方法：在 TreeView上按[滑鼠右鍵]→[屬性] 進行基本設定

• 常用屬性：

屬性名稱	說明
Indentation	設定每層子樹節點的縮排距離
LineStyle	設定節點之前的連接線樣式
PathSeparator	設定在樹狀節點路徑中，所使用的分隔符號
Scroll	設定是否自動顯示捲軸並允許捲動功能
SingleSel	展開一選項時，是否取消先前展開的節點

【說明】

1. TreeView的節點須以程式的方式建立。

Private Sub Command1_Click() 'treeview1.ImageList = ImageList1 Dim nd As Node ' 建立根節點 Set nd = TreeView1.Nodes.Add(, , "root", "科技大學") 'TreeView1.Nodes(1).Image = "pic1" ' 建立子節點 Set nd = TreeView1.Nodes.Add("root", tvwChild, "a", "管理學院") Set nd = TreeView1.Nodes.Add("a", tvwChild, "a1", "資訊管理系") ' 建立孫節點 Set nd = TreeView1.Nodes.Add("a1", tvwChild, "a11", "技術類") Set nd = TreeView1.Nodes.Add("a1", tvwChild, "a12", "管理類") Set nd = TreeView1.Nodes.Add("a", tvwChild, "a2", "企業管理系") Set nd = TreeView1.Nodes.Add("a", tvwChild, "a3", "財稅金融系") ' 顯示目前的所有節點 nd.EnsureVisible ' 建立子節點 Set nd = TreeView1.Nodes.Add("root", tvwChild, "b", "設計學院") Set nd = TreeView1.Nodes.Add("b", tvwChild, "b1", "視覺傳達系") Set nd = TreeView1.Nodes.Add("b", tvwChild, "b2", "空間設計系") Set nd = TreeView1.Nodes.Add("b", tvwChild, "b3", "工業設計系") ' 顯示目前的所有節點 nd.EnsureVisible '滑鼠滑過時，有底線或反白 TreeView1.HotTracking = False End Sub