关于控件树

GEEEK

Option Compare Database
Dim WithEvents TreeView0 As TreeView
Private Sub Form_Load()
'创建树============================================================
    Set TreeView0 = New TreeView
    TreeView0.Create Me.Box0, Me.Command1, tvwTreelinesPlusMinusPictureText, tvwRootlines, IconSmall, tsWinVista
'树节点============================================================
    TreeView0.Nodes.Add , , "a0", "送检", 1
    TreeView0.Nodes.Add , , "b0", "检测", 1
    TreeView0.Nodes.Add , , "c0", "统计", 1
    TreeView0.Nodes.Add , , "d0", "个人设置", 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", "待检测", 2
    TreeView0.Nodes.Add "b0", tvwChild, "b02", "已检测", 2
    'TreeView0.Nodes.Add "a01", tvwChild, "a011", "待添加"
   
   
   
'树图标=============================================================
    TreeView0.AddImage "E:\Access+VBA\工作\图标\b.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\图标\c.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\图标\d.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\图标\e.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\图标\f.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\图标\g.png", 16, 16, -1
    TreeView0.AddImage "E:\Access+VBA\工作\图标\tp.jpeg", 50, 50, -1
    'TreeView0.Nodes("送样登记").Expanded = True  ' 展开指定节点
'树属性=============================================================
    '字体
    With TreeView0.Font
        .Name = "宋体"
        .Bold = False
        .Size = 10
    End With
    '背景色
    TreeView0.BackColor = 15790320
    '3D效果
    TreeView0.Appearance = 1
    '字体颜色
    TreeView0.TextColor = 0
    '树分支间距
    TreeView0.ItemHeight = 350
    '缩进
     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