在TreeView中添加子項

Question

我確定這聽起來像一個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資源管理器。 非常感謝您的幫助！

提前致謝！ JFV

Answer 1

您需要使用TreeNode對象，並將子項添加到父TreeNode，而不是將所有內容直接添加到TreeView。 看看這個例子 。

Answer 2

這是哪個TreeView？ 在winforms中，您只需從Add中捕獲返回的TreeNode，然后將更多項目添加到Nodes屬性中：

TreeNode parent = treeView.Nodes.Add("parent");
parent.Nodes.Add("child");