移入ツリービュー

Question

私は

List(0) = "Drive\First1\Folder2\Folder3" 

List(1) = "Drive\Second2" 

List(2) = "Drive\SubFolder1\ChildSubFolder" 

    Dim List = Split("Drive\First1\Folder2\Folder3", "\") 

    ParentNode = TreeView1.Nodes.Add(List(0)) 

    For x = 1 To List.Count - 1 
     ParentNode.Nodes.Add(List(x)) 
    Next 

のような値が含まれている大規模なリストを持って、私は非常に混乱していたTreeViewコントロールを作成する方法についてvb.netで

ことができる人私を助けてくれない？お願いします。前もって感謝します。

Answer 1

2つのループが必要です。リストの1つのループ、2つ目はスラッシュで区切られた項目をループします。トリッキーな部分は、TreeViewコントロール自体に属する「ルートノード」とそのコレクション内の親ノードに属する「子ノード」を区別することです。

これを把握したら、ノードがすでに存在するかどうかを確認し、存在する場合はそれを使用してください。そうでない場合は、コレクションに追加してください。

For Each item As String In List 
    Dim activeNode As TreeNode = Nothing 
    Dim nodeItems As TreeNodeCollection = Nothing 
    Dim subItems() As String = item.Split("\"c) 
    For i As Integer = 0 To subItems.Length - 1 
    nodeItems = If(i = 0, TreeView1.Nodes, activeNode.Nodes) 
    If nodeItems.ContainsKey(subItems(i)) Then 
     activeNode = nodeItems(subItems(i)) 
    Else 
     activeNode = nodeItems.Add(subItems(i), subItems(i)) 
    End If 
    Next 
Next 

Answer 2

私も答えを見つけますが、私のコードは間違った結果を返します。@LarsTechコードは完全に機能します。ありがとうございますLarsTech

Dim List(3) As String 
    List(0) = "Drive\First1\Folder2\Folder3" 
    List(1) = "Drive\Second2" 
    List(2) = "Drive\Second3\Folder4" 
    List(3) = "xDrive\Folder4\Folder5" 

    For Each ListItem In List 
     Dim Folders() = Split(ListItem, "\") 

     For i = 1 To Folders.Count - 1 

      Dim pNode = TreeView1.Nodes.Find(Folders(i - 1), True) 

      If pNode.Count = 0 Then 
       Dim pNode1 = TreeView1.Nodes.Add(Folders(i - 1), Folders(i - 1)) 
       pNode1.Nodes.Add(Folders(i), Folders(i)) 
      Else 
       If pNode(0).Nodes.Find(Folders(i), True).Count = 0 Then 
        pNode(0).Nodes.Add(Folders(i), Folders(i)) 
       End If 
      End If 
     Next 
    Next