VBA中如何用代码在TreeView控件中添加节点

1、在用户窗体的UserForm_Click事件中加入如下的代码：Private Su水瑞侮瑜b UserForm忧溲枷茫_Click() Dim i As Integer '定义一个TreeView 节点对象 Dim oTVW As Node '为TreeView控件添加一个根节点 Set oTVW = Me.TreeView1.Nodes.Add(, , "R", Excel.ThisWorkbook.Name) '为TreeView控件的根节点添加多个同级的子节点 For i = 1 To Excel.ThisWorkbook.Worksheets.Count Set oTVW = Me.TreeView1.Nodes.Add("R", tvwChild, "C" & i, Worksheets(i).Name) Next iEnd Sub如下图所示：

2、然后按下F5键运行代码在弹出的用户窗体处单击鼠标将显示TreeView控件的根节点，然后双击根节点将显示它的子节点，如下图所示：

3、TreeView控件添加节点的核心代码是object.Add(relati箪滹埘麽ve, relationship, key,text, image, selectedimage)其中relative参数表示已经存在的节点的Key或者索引号relationship参数表示需要添加的节点与relative参数所表示的节点之间的关系，它可以是TvwFirst：被添加的节点添加在relative参数所表示的同级别的节点的第一个TvwLast1：被添加的节点添加在relative参数所表示的同级别的节点的最后一个TvwNext：被添加的节点添加在relative参数所表示的节点的后面一个TvwPrevious：被添加的节点添加在relative参数所表示的节点的前面一个TvwChild：被添加的节点添加在relative参数所表示的节点的子节点key参数表示为将要被添加的节点设置的Keytext参数表示为将要被添加的节点设置的显示文本。