1、在窗体上加个IMAGELIST 2、在IMAGELIST里加载你要显示的文件夹图片 3、并在关键字一栏里输入表识,比如“A” 4、 Private Sub Command3_Click() Set TreeView1.ImageList = ImageList1 TreeView1.Nodes.Add , , "N0", "一", "A" TreeView1.Nodes.Add "N0", tvwChild, "N001", "一1", "A" TreeView1.Nodes.Add "N0", tvwChild, "N002", "一2", "A" TreeView1.Nodes.Add "N0", tvwChild, "N003", "一3", "A" End Sub
Private Sub TV_Expand(ByVal Node As MSComctlLib.Node) Node.Image = 3 End Sub 就如楼上两位说的一样,数字是加入图标的索引。
先加载imagelist控件. 然后在treeview的属性中加载,用下面的语句: Set node1 = TreeView1.Nodes.Add(, , , "图标", 1) Set node1 = TreeView1.Nodes.Add(, , , "图标", 2)
2、在IMAGELIST里加载你要显示的文件夹图片
3、并在关键字一栏里输入表识,比如“A”
4、
Private Sub Command3_Click()
Set TreeView1.ImageList = ImageList1
TreeView1.Nodes.Add , , "N0", "一", "A"
TreeView1.Nodes.Add "N0", tvwChild, "N001", "一1", "A"
TreeView1.Nodes.Add "N0", tvwChild, "N002", "一2", "A"
TreeView1.Nodes.Add "N0", tvwChild, "N003", "一3", "A"
End Sub
Node.Image = 3
End Sub
就如楼上两位说的一样,数字是加入图标的索引。
然后在treeview的属性中加载,用下面的语句:
Set node1 = TreeView1.Nodes.Add(, , , "图标", 1)
Set node1 = TreeView1.Nodes.Add(, , , "图标", 2)
上面很多例子的