[RESOLVED] WPF TreeView Events

[ambiguousPanda]

im trying to create an Explorer like control useing the TreeView control and the code below, but
it looks like the Expanded event of the root node is raised everytime i remove the child nodes from the currently selected node, i need to remove the child nodes of the currently expanded node so i can refresh the list of folders

is there a way i can prevent it from doing this, or is there a better Explorer like control i can use?

    Private Sub windowMain_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded

        For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            Dim Item As New TreeViewItem
            Item.Header = Drive.Name
            Item.Tag = Drive.Name
            AddHandler Item.Expanded, AddressOf treeExplorer_Expanded
            treeExplorer.Items.Add(Item)
        Next

    End Sub

    Private Sub treeExplorer_Expanded(ByVal sender As Object, ByVal e As RoutedEventArgs)

        Dim ExpandedItem As TreeViewItem = DirectCast(sender, TreeViewItem)
        Dim Path As String = DirectCast(ExpandedItem.Tag, String)

        Debug.WriteLine(Path)

        ExpandedItem.Items.Clear() ' i think this causes the expanded event of the root node to be raised 

        For Each Folder As String In IO.Directory.GetDirectories(Path)
            Dim Item As New TreeViewItem
            Item.Header = Folder.Substring(Folder.LastIndexOf("\") + 1)
            Item.Tag = Folder
            AddHandler Item.Expanded, AddressOf treeExplorer_Expanded
            ExpandedItem.Items.Add(Item)
        Next

    End Sub

[ambiguousPanda]

is there a way i can stop the expanded event on the root node whne i delete the currently selected node ?

there used to be a TreeView.BeginUpdate and TreeView.EndUpdate, is there an equivalent function in wpf ?

[ambiguousPanda]

boobies

[ambiguousPanda]

solved it

Private Sub windowMain_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded

        For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            Dim Item As New TreeViewItem
            Item.Header = Drive.Name
            Item.Tag = Drive.Name
            AddHandler Item.Expanded, AddressOf treeExplorer_Expanded
            treeExplorer.Items.Add(Item)
        Next

    End Sub

    Private Sub treeExplorer_Expanded(ByVal sender As Object, ByVal e As RoutedEventArgs)

        Dim ExpandedItem As TreeViewItem = DirectCast(sender, TreeViewItem)
        Dim Path As String = DirectCast(ExpandedItem.Tag, String)

        Debug.WriteLine(Path)

        ExpandedItem.Items.Clear() 

        For Each Folder As String In IO.Directory.GetDirectories(Path)
            Dim Item As New TreeViewItem
            Item.Header = Folder.Substring(Folder.LastIndexOf("\") + 1)
            Item.Tag = Folder
            AddHandler Item.Expanded, AddressOf treeExplorer_Expanded
            ExpandedItem.Items.Add(Item)
        Next

        e.Handled = True    ' this stops it from bubbling up to the root node

    End Sub

BOOBIEWS