[RESOLVED] TreeView Control

[rkeslar]

I'm have an xml document populating a treeview that looks something like this:

Root
Filetypes
Filetype
TXT
Filetype
DAT
Filetype
ZIP


That's correct based on the xml document, but I want to display it like this:

Root
Filetype
TXT
DAT
ZIP

I'm not sure how to start on this. Do you know what I might do? Thanks

[ForumAccount]

So you only want unique node names?

[rkeslar]

So you only want unique node names?

Yes that's right. Also, if you didn't want to show some of the child nodes how would you do that?

Thanks a lot

[ForumAccount]

The ideal starting point is to show the code you have that is loading the TreeView.

[rkeslar]

The ideal starting point is to show the code you have that is loading the TreeView.

Ok:

 Private Sub PopulateTreeView(ByVal FileName As String)

        Try
            ' Create a new instance of the XmlDocument class
            Dim xDoc As XmlDocument = New XmlDocument

            ' Load XML Document
            xDoc.Load(FileName)

            ' Clear out TreeView and add first (root) node
            ConfigTreeView.Nodes.Clear()


            ConfigTreeView.Nodes.Add(New TreeNode(xDoc.DocumentElement.Name))

            ' Create a new instance of the TreeNode class
            Dim tNode As TreeNode = New TreeNode()

            ' Set tNode equal to the first node in the tree
            tNode = ConfigTreeView.Nodes(0)

            ' Call AddTreeNode where I will add all nodes to the Tree
            AddTreeNode(xDoc.DocumentElement, tNode)

            ' Expand TreeView to show all nodes (probably want to take this out when finished)
            'ConfigTreeView.ExpandAll()

            ' xml exception
        Catch xmlEx As XmlException
            MessageBox.Show(xmlEx.Message)

            ' general exception
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try
    End Sub

    ' This method is called recursively until all nodes are loaded
    Private Sub AddTreeNode(ByVal xmlNode As XmlNode, ByVal treeNode As TreeNode)

        Dim xNode As XmlNode
        Dim tNode As TreeNode
        Dim XNodeList As XmlNodeList

        ' If the current node has children, add those nodes as well
        If (xmlNode.HasChildNodes) Then

            XNodeList = xmlNode.ChildNodes

            For x As Integer = 0 To XNodeList.Count - 1

                xNode = xmlNode.ChildNodes(x)


                treeNode.Nodes.Add(New TreeNode(xNode.Name))
                tNode = treeNode.Nodes(x)
                AddTreeNode(xNode, tNode)  ' Recursive call. Keep calling self all nodes are loaded
            Next

            ' Otherwise there are no children so add the outer xml, trimming off whitespace
        Else
            treeNode.Text = xmlNode.OuterXml.Trim()
        End If

    End Sub

[ForumAccount]

So you have something similar to the root's first node, but you want it like the root's second node:

[rkeslar]

So you have something similar to the root's first node, but you want it like the root's second node:

I will have to look at that at home. That site is blocked at work.

[ForumAccount]

I attached it instead

[rkeslar]

I attached it instead

Thanks. That's exactly what I'm looking for.

[ForumAccount]

This is the xml I used for testing:

<?xml version="1.0"?>
<Root>
    <FileTypes>
        <FileType>TXT</FileType>
        <FileType>DAT</FileType>
        <FileType>ZIP</FileType>
        <SomethingElse>
            <FileType>BAT</FileType>
            <FileType>EXE</FileType>
        </SomethingElse>
    </FileTypes>
</Root>

The first attached image is what it would normally do, the second is what the following code will do (I did change a few things, variable names, etc...):

Private Sub PopulateTreeView(ByVal fileName As String)
 
        Try
            Dim document As XmlDocument = New XmlDocument()
            document.Load(fileName)
            Dim rootNode As New TreeNode(document.DocumentElement.Name)
 
            ' Clear out TreeView and add first (root) node
            Me.ConfigTreeView.Nodes.Clear()
            Me.ConfigTreeView.Nodes.Add(rootNode)
 
            ' Call AddTreeNode where I will add all nodes to the Tree
            Me.AddTreeNodes(document.DocumentElement, rootNode)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    ' This method is called recursively until all nodes are loaded
    Private Sub AddTreeNodes(ByVal xmlNode As XmlNode, ByVal treeNode As TreeNode)
 
        Dim currentNode As XmlNode = Nothing
 
        ' If the current node has children, add those nodes as well
        If (xmlNode.HasChildNodes) Then
 
            For index As Integer = 0 To xmlNode.ChildNodes.Count - 1
 
                currentNode = xmlNode.ChildNodes(index)
 
                If currentNode.Name = "FileType" Then
                    For Each child As XmlNode In currentNode.ChildNodes
                        treeNode.Nodes.Add(child.Value)
                    Next
                ElseIf Not Object.Equals(currentNode.Value, treeNode.Text) Then
                    treeNode.Nodes.Add(New TreeNode(currentNode.Name))
                    Me.AddTreeNodes(currentNode, treeNode.Nodes(index))
                End If
 
            Next
        End If
 
    End Sub

Let me know if that works...

[rkeslar]

This is the xml I used for testing:

<?xml version="1.0"?>
<Root>
    <FileTypes>
        <FileType>TXT</FileType>
        <FileType>DAT</FileType>
        <FileType>ZIP</FileType>
        <SomethingElse>
            <FileType>BAT</FileType>
            <FileType>EXE</FileType>
        </SomethingElse>
    </FileTypes>
</Root>

The first attached image is what it would normally do, the second is what the following code will do (I did change a few things, variable names, etc...):

Private Sub PopulateTreeView(ByVal fileName As String)
 
        Try
            Dim document As XmlDocument = New XmlDocument()
            document.Load(fileName)
            Dim rootNode As New TreeNode(document.DocumentElement.Name)
 
            ' Clear out TreeView and add first (root) node
            Me.ConfigTreeView.Nodes.Clear()
            Me.ConfigTreeView.Nodes.Add(rootNode)
 
            ' Call AddTreeNode where I will add all nodes to the Tree
            Me.AddTreeNodes(document.DocumentElement, rootNode)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    ' This method is called recursively until all nodes are loaded
    Private Sub AddTreeNodes(ByVal xmlNode As XmlNode, ByVal treeNode As TreeNode)
 
        Dim currentNode As XmlNode = Nothing
 
        ' If the current node has children, add those nodes as well
        If (xmlNode.HasChildNodes) Then
 
            For index As Integer = 0 To xmlNode.ChildNodes.Count - 1
 
                currentNode = xmlNode.ChildNodes(index)
 
                If currentNode.Name = "FileType" Then
                    For Each child As XmlNode In currentNode.ChildNodes
                        treeNode.Nodes.Add(child.Value)
                    Next
                ElseIf Not Object.Equals(currentNode.Value, treeNode.Text) Then
                    treeNode.Nodes.Add(New TreeNode(currentNode.Name))
                    Me.AddTreeNodes(currentNode, treeNode.Nodes(index))
                End If
 
            Next
        End If
 
    End Sub

Let me know if that works...

Wow that's great. I will work on it now. Thanks a lot!