如何更新根/父节点文本

Question

即时通讯新手到vb6，我不知道如何更改变量“childCount”变化时的根/父节点？

感谢

例如：

Dim nodx As Node 
dim childCount as integer 

childCount = 0 

Set TreeView1.ImageList = ImageList1 

'Add root Node 
Set nodx = TreeView1.Nodes.Add(, , "Root", "Root Node have " & childCount & " child" ,"Closed") 

'Expand root node so we can see what's under it 
nodx.ExpandedImage = "Open" 
nodx.Expanded = True 

'Create a child node under the root node 
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child1", "Child node 1", "Closed") 

childCount =childCount + 1 
'Expand this node so we can see what's under it 
nodx.ExpandedImage = "Open" 
nodx.Expanded = True 

'Create several more children 
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child2", "Child node 2", "Leaf") 

childCount =childCount + 1 

Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child3", "Child node 3", "Leaf") 

childCount =childCount + 1 

Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child4", "Child node 4", "Leaf") 

childCount =childCount + 1 

Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child5", "Child node 5", "Leaf") 

childCount =childCount + 1 

Answer 1

因为要更新的根节点（第一节点），你已经知道了索引号为1，那么你的任务是特别容易。

TreeView1.Nodes.Item(1).Text = "Root Node have " & CStr(childCount) 

您还可以更新新节点的根目录。在你的样品是一样的指数1

TreeView1.Nodes.Item(TreeView1.Nodes.Count).Root.Text = "Root Node have " & CStr(childCount) 

尝试暂停执行，并与控制的不同性质的立即窗口发挥。

Answer 2

我找到了解决办法感谢@Beaner对他的想法，我做的是：

Dim nodx As Node 
Dim nodChild As Node 
dim childCount as integer 

Set nodx = TreeView1.Nodes.Add(, , "Root", "Root Node have " & childCount & " child" ,"Closed") 

'Expand root node so we can see what's under it 
nodx.ExpandedImage = "Open" 
nodx.Expanded = True 

'Create a child node under the root node 
Set nodChild = TreeView1.Nodes.Add("Root", tvwChild, "Child1", "Child node 1", "Closed") childCount =childCount + 1 

'Expand this node so we can see what's under it nodx.ExpandedImage = "Open" nodx.Expanded = True 
'Create several more children 
Set nodChild = TreeView1.Nodes.Add("Root", tvwChild, "Child2", "Child node 2", "Leaf") childCount =childCount + 1 

Set nodChild = TreeView1.Nodes.Add("Root", tvwChild, "Child3", "Child node 3", "Leaf") childCount =childCount + 1 

Set nodChild = TreeView1.Nodes.Add("Root", tvwChild, "Child4", "Child node 4", "Leaf") childCount =childCount + 1 

Set nodChild = TreeView1.Nodes.Add("Root", tvwChild, "Child5", "Child node 5", "Leaf") childCount =childCount + 1 

nodx.Text = "Root Node have " & childCount & " child"