從treenode填充treenode

Question

我構建了一個treenode以從我的網絡驅動器填充，從此樹形視圖中，我希望在選擇第一個樹形視圖時填充另一個樹視圖以顯示文件。例如，如果用戶點擊c：\ TestFolder，那麼第二個treeview將顯示TestFolder，所有子文件夾和文件。以下是我的代碼，謝謝。

進口系統 進口System.IO 公共類F_Treeview_Demo 公共IsSomethingChecked由於布爾=假 私人fbIgnoreClick由於布爾=假 私人fbLoadingForm由於布爾=真 私人SREAD作爲字符串 公共N作爲樹節點 公共l由於新的列表（串） 公共drivesTree作爲新的列表（串）

Private Sub F_Treeview_Demo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    ' Initialize the local directory treeview 

    Dim nodeText As String = "" 
    Dim sb As New C_StringBuilder 
    With My.Computer.FileSystem 
     For i As Integer = 0 To .Drives.Count - 1 

      '** Build the combo box with drive's node text 
      sb.ClearText() 
      sb.AppendText(.Drives(i).DriveType.ToString) 
      sb.AppendText(RemoveTrailingChar(.Drives(i).Name, gtBACKSLASH)) 
      cmbDrives.Items.Add(sb.FullText) 


     Next 
    End With 

End Sub 
Public Sub FillTree(ByVal s As String) 

    Dim nodeText As String = "" 
    Dim sb As New C_StringBuilder 
    With My.Computer.FileSystem 
     For i As Integer = 0 To .Drives.Count - 1 

      '** Build the drive's node text 
      sb.ClearText() 
      sb.AppendText(.Drives(i).DriveType.ToString) 
      sb.AppendText(RemoveTrailingChar(.Drives(i).Name, gtBACKSLASH)) 

      nodeText = sb.FullText 
      'nodeText = Me.tvFolders.SelectedNode.Text 
      'Check to see if DropDown Selection is the same as what has been read into i 
      If (sb.FullText = s) Then 

       '** Add the drive to the treeview 
       Dim driveNode As TreeNode 
       tvFolders.Nodes.Clear() 
       driveNode = tvFolders.Nodes.Add(nodeText) 
       driveNode.ImageIndex = 0 
       driveNode.SelectedImageIndex = 1 
       driveNode.Tag = .Drives(i).Name 


       Dim FolderNode As String = "" 
       'Dim FirstNode As TreeNode 
       'tvFolders.Nodes.Clear() 
       'FirstNode = tvFolders.Nodes.Add(nodeText) 

       '** Add the next level of subfolders 
       ListLocalSubFolders(driveNode, .Drives(i).Name) 
       driveNode = Nothing 
      End If 
     Next 
    End With 
End Sub 

Private Sub tvwLocalFolders_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _ 
             Handles tvFolders.BeforeExpand 

    ' Display the path for the selected node 
    ' lblLocalPath.Text = e.Node.Tag 
    ' Populate all child nodes below the selected node 
    Dim parentPath As String = AddChar(e.Node.Tag) 
    tvFolders.BeginUpdate() 
    Dim childNode As TreeNode = e.Node.FirstNode 
    'this i added 
    Dim smallNode As TreeNode = e.Node.FirstNode 

    Do While childNode IsNot Nothing 
     ListLocalSubFolders(childNode, parentPath & childNode.Text) 
     childNode = childNode.NextNode 
     ''this i added 
     ListLocalFiles(smallNode, parentPath & smallNode.Text) 

    Loop 
    tvFolders.EndUpdate() 
    tvFolders.Refresh() 
    ' Select the node being expanded 
    tvFolders.SelectedNode = e.Node 
End Sub 

Private Sub ListLocalFiles(ByVal ParentNode As TreeNode, ByVal PParentPath As String) 

    Dim FileNode As String = "" 
    Try 
     For Each FileNode In Directory.GetFiles(PParentPath) 
      Dim smallNode As TreeNode 
      smallNode = ParentNode.Nodes.Add(FilenameFromPath(FileNode)) 
      With smallNode 
       .ImageIndex = 0 
       .SelectedImageIndex = 1 
       .Tag = FileNode 
      End With 
      smallNode = Nothing 
     Next 
    Catch ex As Exception 
    End Try 

End Sub 

Private Sub ListLocalSubFolders(ByVal ParentNode As TreeNode, ByVal ParentPath As String) 
    ' Add all local subfolders below the passed Local treeview node 
    Dim FolderNode As String = "" 
    Try 
     For Each FolderNode In Directory.GetDirectories(ParentPath) 
      Dim childNode As TreeNode 
      childNode = ParentNode.Nodes.Add(FilenameFromPath(FolderNode)) 
      With childNode 
       .ImageIndex = 0 
       .SelectedImageIndex = 1 
       .Tag = FolderNode 
      End With 
      childNode = Nothing 
     Next 
    Catch ex As Exception 
    End Try 

End Sub 



Private Sub lblLocalPath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

End Sub 

Private Sub grpLocalFileSystem_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grpLocalFileSystem.Enter 

End Sub 


Private Sub cmbDrives_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDrives.SelectedIndexChanged 
    'populate tree view from user selection 
    FillTree(Me.cmbDrives.SelectedItem.ToString) 
End Sub 

Private Sub checkBox_isSelected() 

End Sub 

Private Sub btnCommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click 

    ListBox1.Items.Clear() 

    CallRecursive(tvFolders) 

    If (IsSomethingChecked = False) Then 
     MessageBox.Show("Please select an item to replicate.") 
    End If 

End Sub 

'End Function 
Private Sub PrintRecursive(ByVal n As TreeNode) 
    System.Diagnostics.Debug.WriteLine(n.Text) 

    If (n.Checked = True) Then 
     IsSomethingChecked = True 
     sRead = n.FullPath 
     l.Add(sRead) 
     'If (n.Checked = False) Then 
     ' ListBox1.Items.Add(sRead) 
     ' MessageBox.Show(n.FullPath) 
     'End If 

     ListBox1.Items.Add(sRead) 
     ' MessageBox.Show(sRead) 

     ' Next 

    End If 
    Dim aNode As TreeNode 
    For Each aNode In n.Nodes 
     PrintRecursive(aNode) 


    Next 

End Sub 

' Call the procedure using the top nodes of the treeview. 
Private Sub CallRecursive(ByVal aTreeView As TreeView) 
    Dim n As TreeNode 
    For Each n In aTreeView.Nodes 
     PrintRecursive(n) 
     If IsSomethingChecked = True Then 
      Exit Sub 
     End If 
    Next 
End Sub 

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 

End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    ListBox1.Items.Clear() 

End Sub 

Private Sub tvFiles_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvFiles.BeforeSelect 
    FillTree(Me.tvFolders.SelectedNode.Tag) 
End Sub 


Private Sub tvFolders_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles tvFolders.NodeMouseClick 

End Sub 

Private Sub tvFiles_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvFiles.AfterSelect 

End Sub 

末級

Answer 1

據我瞭解，你已經創建了一個樹狀結構的節點，當一個節點被選中時，它的所有子節點應該顯示在另一個TreeView？

如果是這樣，只需添加NodeMouseClick事件處理程序，然後添加代碼：

treeView2.Nodes.Clear() 
treeView2.Nodes.Add(Ctype(e.Node.Clone(), TreeNode)) 

如果第一TreeView尚未包含在目錄中的實際文件，你也不得不後添加代碼這將循環遍歷treeView2中的所有節點並調用類似Directory.GetFiles的東西，並添加具有文件名的子節點。

爲了將來的參考，最好在代碼中添加代碼，但是我建議儘可能將代碼減少到真正相關的位。