VB TreeView点击节，把节点下的所有文名字写入listbox

来源：百度知道 编辑：UC知道 时间：2024/06/03 21:21:09
VB TreeView控制当点击任意一个节点时，如果把节点下展开的的所有文名字写入listbox中？
For i = 1 To TreeView1.GetVisibleCount
List1.AddItem TreeView1.Nodes(i)
next
我上面的写法只读取到第一个主目录的目录和文件名.节点下面的怎么获取到？？

下面的代码用于获得任意节点的子节点
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
List1.Clear
If Node.Children > 0 Then
Dim mNode
For i = 1 To Node.Children
If i = 1 Then
Set mNode = Node.Child
Else
Set mNode = mNode.Next
End If
List1.AddItem mNode.Text
Next
End If
End Sub