【发布时间】:2010-09-26 19:52:43
【问题描述】:
我确定这听起来像是一个 n00b 问题,但是如何在 VB.NET 3.5 中填充 TreeView 列表时以编程方式添加子项?我有以下代码,但无法弄清楚如何为我填充 TreeView 的每个文件夹/文件添加子项:
Private Sub AddToList(ByVal targetDirectory As String, ByVal boolFiles As Boolean, Optional ByVal recur As Boolean = False)
Dim shortName As String
TreeView1.Items.Add(targetDirectory)
//Add subitems under here
If Directory.GetDirectories(targetDirectory).Length > 0 Then
Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory)
Dim subdirectory As String
For Each subdirectory In subdirectoryEntries
shortName = subdirectory.Remove(0, subdirectory.LastIndexOf("\") + 1)
TreeView1.Items.Add(shortName)
AddToList(subdirectory, False, True)
If boolFiles = True Then AddToList(subdirectory, boolFiles)
Next
End If
End Sub
为了澄清,我希望我的 TreeView 看起来类似于 Windows 资源管理器的外观。感谢您的任何帮助!
提前致谢! 捷豹路虎
【问题讨论】: