Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim tNode As Node
For m = 1 To 5
Set tNode = TreeView1.Nodes.Add(, , CStr(m), CStr(m))
For n = 1 To 4
Set tNode = TreeView1.Nodes.Add(CStr(m), tvwChild, CStr(n), CStr(n))
Next
Next
End Sub
第四行为什么老报错,说"无效关键字"

[此贴子已经被作者于2006-2-28 13:59:02编辑过]

key错误
不填:Set tNode = TreeView1.Nodes.Add(, , , CStr(m))

教材上说的,也就是被你省掉的那个参数是key,是个什么索引

正确格式是
object.Nodes.Add(relative,relationship,key,text,image,selectedimage)
relative是新节点与这个现有节点之间的关系
relationship指定节点的相对放置位置
key指定新节点的唯一标识符
text指定节点中要显示的文本
image指定与树试图控件相关联的图像列表控件中图像的索引
selectedimage指定选中节点时图像列表控件中所显示图像的索引

感谢各位,我知道哪里错了.
正如sunyu所说,key参数是关键字,不过它是整个树的关键字,也就是说,在整个TreeView里,不管是根结点还是子节点,它都必须是唯一的,那么我的错误就很明显了

说白了key不能是变量,是固定的.
Set tNode = TreeView1.Nodes.Add(, , "XXX", CStr(m))