vb6.0中treeview目录树中怎么加图标

vb6.0中treeview目录树中节点前面怎么加图标

例如下面的代码，想在节点前加个图片1.gif：

TreeView1.LineStyle = tvwRootLines Dim nodX As Node
Set nodX = TreeView1.Nodes.add("teacher", tvwChild, teachername, "教师姓名")

建一个ImageList控件，右击，属性，在“图像”里插入图片（你的1.gif），看好他们的索引（Index，默认是1）。然后，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
TreeView1.ImageList = ImageList1 '关联Treeview1与Imagelist1
TreeView1.LineStyle = tvwRootLines
Dim nodX As Node
TreeView1.Nodes.Add , , "a1", "teachername"
Set nodX = TreeView1.Nodes.Add("a1", tvwChild, , "教师姓名", 1) '这个1的意思是刚才设置的图片在ImageList里的索引
End Sub

'设置 treeview 控件属性。 treeview1.linestyle = tvwrootlines ' linestyle 1 '添加 node 对象。 dim nodx as node '声明 node 变量。 '带有文本 'root' 的第一个节点。 set nodx = treeview1.nodes.add(, , "r", "班级名称") '下一个节点是节点 1 ("root") 的子节点。 call treeview1.nodes.add("r", tvwchild, "class2007", "2007级") call treeview1.nodes.add("r", tvwchild, "class2008", "2008级") call treeview1.nodes.add("r", tvwchild, "class2009", "2009级")