Question

vb treeview控件 集合中的关键字不唯一，应怎么修改

Private Sub Form_Load()
Dim nodtemp As Node
Set nodtemp = TreeView1.Nodes.Add(, , "A", "A", ImageList1.ListImages(1), ImageList1.ListImages(2)) ‘此处提示 集合中的关键字不唯一
Set nodtemp = TreeView1.Nodes.Add(, , "B", "B", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "C", "C", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "D", "D", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "E", "E", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "F", "F", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "G", "G", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "H", "H", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "I", "I", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "J", "J", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "K", "K", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "L", "L", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "M", "M", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "N", "N", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "O", "O", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "P", "P", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "Q", "Q", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "R", "R", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "S", "S", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "T", "T", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "U", "U", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "V", "V", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "W", "W", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "X", "X", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "Y", "Y", ImageList1.ListImages(1), ImageList1.ListImages(2))
Set nodtemp = TreeView1.Nodes.Add(, , "Z", "Z", ImageList1.ListImages(1), ImageList1.ListImages(2))
End Sub
应怎么修改
请问以上代码哪里有错误，谢谢

Answer 1

Private Sub Form_Load()
Dim nodtemp As Node

set treeview1.imagelist = imagelist1
for a = asc("A") to asc("Z")
set nodtemp = treeview1.nodes.add(,,,chr(a),1,2)
next

end sub

追问

请问以上代码哪里有错误，谢谢

追答

Set nodtemp = TreeView1.Nodes.Add(, , "Z", "Z", ImageList1.ListImages(1), ImageList1.ListImages(2))

改成
set treeview1.imagelist = imagelist1
Set nodtemp = TreeView1.Nodes.Add(, , "Z", "Z", 1,2)

后面两个参数不能是对象，只能是他的关键字或者序号。