TreeView控件设置问题
如下图所示
如何更改为下面图显示的样式
谢谢高手帮忙
[解决办法]
Private Sub Form_Load()
TreeView1.Indentation = 120
TreeView1.Nodes.Clear
TreeView1.ImageList = ImageList1
'添加根节点
TreeView1.Nodes.Add , , "A01", "程序 程序及步骤...", 1
'添加带上级的节点
TreeView1.Nodes.Add "A01", 4, "B01", "01.踏面实验", 2
TreeView1.Nodes.Add "A01", 4, "B02", "02.制动钳实验", 2
'其它节点
TreeView1.Nodes.Add "B01", 4, "C01", "C0001", 3
TreeView1.Nodes.Add "B01", 4, "C02", "C0002", 3
TreeView1.Nodes.Add "B02", 4, "D01", "D0001", 3
TreeView1.Nodes.Add "B02", 4, "D02", "D0002", 3
'展开根节点
TreeView1.Nodes.Item("A01").Expanded = True
End Sub
