Question

VB 按照treeview 节点顺序取全部节点text

Answer 1

Dim i As Integer
For i = 1 To TreeView1.Nodes.Count
Debug.Print TreeView1.Nodes.Item(i).Key, TreeView1.Nodes.Item(i).Text
Debug.Print TreeView1.Nodes(i).Key, TreeView1.Nodes(i).Text
Next i

追问

首先感谢您，我讲的有些不清楚：应当是不区分父、子节点，按照从上到下的顺序谢谢您，要求如下：
@父
@子1
@孙11
@孙12
@子2
@孙21
@孙22
产生的结果
@父
@子1
@孙11
@孙12
@子2
@孙21
@孙23

追答

这个可以用递归的方法实现，下面的代码假设TreeView控件已经有数据，在窗体上通过按钮单击，可以完成所有节点的遍历：

因为这里字数有限制，我的回答只能上传附件了，你自己看附件吧。

代码已经通过VB6的测试。