0

子ノードのアイテムは、折りたたまれた状態から展開されるたびに自分自身を複製するように見えます。問題は、展開する前にメモリをクリアする必要があることだと思います。このイベントが発生する理由を誰でも理解できますか。前もって感謝します。

  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).Name.ToString)
                nodeText = sb.FullText
                '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.Tag = .Drives(i).Name
                    '** Add the next level of subfolders
                    ListLocalSubFolders(driveNode, .Drives(i).Name)
                End If
            Next
        End With
    End Sub

Private Sub ListLocalSubFolders(ByVal ParentNode As TreeNode, ByVal sParentPath As String)
    '    ' Add all local subfolders below the passed Local treeview node
    Dim s As String
    Try
        For Each s In Directory.GetDirectories(sParentPath)
            Dim childNode As TreeNode
            childNode = ParentNode.Nodes.Add(FilenameFromPath(s))
            childNode = Nothing
        Next
    Catch ex As Exception
    End Try
End Sub

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

    ' Populate all child nodes below the selected node
    Dim parentPath As String = e.Node.Tag
    Dim childNode As TreeNode = e.Node.FirstNode
    Do While childNode IsNot Nothing
        ListLocalSubFolders(childNode, parentPath & childNode.Text)
        childNode = childNode.NextNode
    Loop


End Sub
4

1 に答える 1

0

この行が必要です：

ListLocalSubFolders(childNode, parentPath & childNode.Text)

このようには見えません：

ListLocalSubFolders(childNode, childNode.Text)

？

それ以外の場合は、次のようなfeが表示されます： "C：\ C：\ $ Recycle.Bin"

于 2010-07-01T21:21:53.037 に答える