建一个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
温馨提示:答案为网友推荐,仅供参考