VB.net TreeView 点一个节点,如何取得其下的所有子节点tag值

[mailto]

VB.net TreeView 点一个节点,如何取得其下的所有子节点tag值
我已经给每个节点的tag设置了值
Dim N As New TreeNode()
N.Text = "中国" '添加根节点
ClassTree.Nodes.Add(N)
AddTree("湖南", N) '再次递归
N.Tag = "0752"

当点任意一节点时,如果该节点下有子节点(包括 孙节点)
读取所有子、孙节点的tag值

要求输出格式为: a,b,c,d

大侠帮帮我，万分感激

[mailto]

调用错误:

参数“Prompt”无法转换为类型“String”。

[mailto]

Knight94(愚翁)的好象可以

但有问题
Prompt 无法转换为类型 String
我需要输出如下结果,需要填充到文本框里

MaskedTextBox1.Text="a,b,c,d"

解决了马上结贴

[demonfox]

Just enumerate the Childs collection of the TreeNode.

[coyor]

UP

[byj2001329]

private sub getnode( Nodes As TreeNodeCollection)
dim node as treenode
for each node in nodes
msgbox node.tag
if node.Nodes.Count > 0
getnode(node.Nodes)
end if
next
end sub

调用： getnode（tree.Nodes）

[Knight94]

遍历，没有简单的方法，例如：

Private Function GetAllChildTag( ByVal tnParent As TreeNode ) As ArrayList
Dim res As New ArrayList()
For Each tn As TreeNode In tnParent.Nodes
res.Add( tn.Tag )
res.AddRange( GetAllChildTag( tn ) ) 'Add its children tag
Next
Return res
End Function

'Call function
Dim res As ArrayList = GetAllChildTag( yourNode )

[myminimouse]

接分了~

[wangchaocn]

mark

[Knight94]

to 但有问题
Prompt 无法转换为类型 String
我需要输出如下结果,需要填充到文本框里

Sample code as follows
Dim res As ArrayList = GetAllChildTag( yourNode )
Dim strArray As String()
Redim strArray( res.Count )
Dim i As Integer
For i = 0 To res.Count
strArray(i) = res(i).ToString()
Next

MaskedTextBox1.Text = String.Join( ",", strArray )

[mailto]

多谢 Knight94(愚翁)
For i = 0 To res.Count -1

完全不报错了

结贴

[yumanqing]

参见我的学习笔记
http://blog.csdn.net/yumanqing/archive/2006/10/12/1331535.aspx