谁有遍历TreeView的代码?分不够另开贴子加分..

[comfort]

能够把其中每一个结点的名字得到.

[射天狼]

Option Explicit

Private Sub Command1_Click()
Dim i As Long

For i = 1 To TreeView1.Nodes.Count
MsgBox TreeView1.Nodes(i).Text
Next
End Sub

[comfort]

为什么TreeView1.Nodes.Count不是一个固定值,会变化呢?

[rainstormmaster]

为什么TreeView1.Nodes.Count不是一个固定值,会变化呢?
正常情况下应该不会，你是不是在程序中增加、删除node了

也可以这样遍历node（推荐）：

Private Sub Command1_Click()
Dim mnode As Node
For Each mnode In Me.TreeView1.Nodes
Debug.Print mnode.Text
Next
End Sub

[xuwuyu]

如果一棵树下来了,treeveiw1.nodes.count 就是确定的啊！这个应该没错吧！楼上两位，一个是用count，一个用nodes 集合，都很好啊，楼主还有什么疑义？代码试一下就会明白了！呵呵

[txlicenhe]

Dim i As Long

For i = 1 To TreeView1.Nodes.Count
MsgBox TreeView1.Nodes(i).Text
Next