關(guān)于控件樹(shù)

GEEEK

Option Compare Database
Dim WithEvents TreeView0 As TreeView
Private Sub Form_Load()
'創(chuàng)建樹(shù)============================================================
    Set TreeView0 = New TreeView
    TreeView0.Create Me.Box0, Me.Command1, tvwTreelinesPlusMinusPictureText, tvwRootlines, IconSmall, tsWinVista
'樹(shù)節(jié)點(diǎn)============================================================
    TreeView0.Nodes.Add , , "a0", "送檢", 1
    TreeView0.Nodes.Add , , "b0", "檢測(cè)", 1
    TreeView0.Nodes.Add , , "c0", "統(tǒng)計(jì)", 1
    TreeView0.Nodes.Add , , "d0", "個(gè)人設(shè)置", 4
    TreeView0.Nodes.Add , , "e0", "管理員", 4
    TreeView0.Nodes.Add , , "f0", "注銷", 6
   
    TreeView0.Nodes.Add "a0", tvwChild, "a01", "送檢登記", 2
    TreeView0.Nodes.Add "a0", tvwChild, "a02", "送檢查詢", 2
    TreeView0.Nodes.Add "b0", tvwChild, "b01", "待檢測(cè)", 2
    TreeView0.Nodes.Add "b0", tvwChild, "b02", "已檢測(cè)", 2
    'TreeView0.Nodes.Add "a01", tvwChild, "a011", "待添加"
   
   
   
'樹(shù)圖標(biāo)=============================================================
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\b.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\c.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\d.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\e.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\f.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\g.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\圖標(biāo)\tp.jpeg", 50, 50, -1
    'TreeView0.Nodes("送樣登記").Expanded = True  ' 展開(kāi)指定節(jié)點(diǎn)
'樹(shù)屬性=============================================================
    '字體
    With TreeView0.Font
        .Name = "宋體"
        .Bold = False
        .Size = 10
    End With
    '背景色
    TreeView0.BackColor = 15790320
    '3D效果
    TreeView0.Appearance = 1
    '字體顏色
    TreeView0.TextColor = 0
    '樹(shù)分支間距
    TreeView0.ItemHeight = 350
    '縮進(jìn)
     TreeView0.Indentation = 150
     
End Sub
'窗體卸載
Private Sub Form_Unload(Cancel As Integer)
    Set TreeView0 = Nothing
End Sub
'Private Sub TreeView0_NodeClick(ByVal Node As Node)
'    With Node
'        Me.TX = .FullPath
        
'    End With
'End Sub