Treeview XML get all selected checked box nodes value

Question

4.00/5 (1 vote)

See more:

The following code populates a treeview control from a XML file. In the treeview control each node has a check box. How can I get all the selected (checkbox.checked = true) nodes value?
Something like

For all node.checkbox.checked = true then
Msgbox node.value
next
Dim recordNode As TreeNode
        Dim leaderNode As TreeNode
        Dim controlfieldNode As TreeNode
        Dim datafielNode As TreeNode

        For Each Record As XElement In doc...<record>
            recordNode = TreeView1.Nodes.Add(Record.Name.ToString)
            For Each Leader As XElement In Record...<leader>
                leaderNode = recordNode.Nodes.Add(Leader.Name.ToString)
                For Each Controlfield As XElement In Record...<controlfield>
                    controlfieldNode = recordNode.Nodes.Add(Controlfield.@tag.ToString)
                    For Each Datafield As XElement In Record...<datafield>
                        datafielNode = recordNode.Nodes.Add(Datafield.@tag.ToString)
                        For Each Subfield As XElement In Datafield...<subfield>
                            datafielNode.Nodes.Add(Subfield.@code.ToString)

                        Next
                    Next
                Next
            Next
        Next

Posted 10-May-11 9:44am

stopete82

Updated 10-May-11 9:56am

Kristian Sixhøj

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Fabio V Silva · Accepted Answer · 2011-05-10T09:57:00

Solution 1

You need to create a list to hold the checked nodes and call a function recursively. Something like:

Sub CheckedNodes(list as List(Of TreeNode), currentnode as TreeNode)

  For Each node as TreeNode in currentnode.Nodes
    If node.Checked Then list.Add(node)
    CheckedNodes(list, node)
  Next

End Sub

Posted 10-May-11 9:57am

Fabio V Silva

Comments

stopete82 11-May-11 12:04pm

Once my treeview1 gets loaded from the XML file; I checked some checks boxes and then click on the fallowing button so I can output the name of the node that was checked. However, I get empty strings. Appreciate your help.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim list As New List(Of String)
GetSelectedNodes(TreeView1.Nodes, list)

End Sub

Private Sub GetSelectedNodes(ByVal nodes As TreeNodeCollection, ByRef list As List(Of String))
For Each node As TreeNode In nodes
If node.Checked Then list.Add(node.Name.ToString)
GetSelectedNodes(node.Nodes, list)

Next

' Loop through list with a for to loop.
Dim i As Integer
For i = 0 To list.Count - 1
MsgBox(list.Item(i))
Next i

End Sub

stopete82 11-May-11 13:05pm

Thanks Fabio V Silva for the great idea. This is the code that worked for me. Thanks again

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For Each n As TreeNode In GetCheck(TreeView1.Nodes)
MsgBox(n.Text)
Next

End Sub

Private Function GetCheck(ByVal node As TreeNodeCollection) As List(Of TreeNode)

Dim lN As New List(Of TreeNode)
For Each n As TreeNode In node
If n.Checked Then lN.Add(n)
lN.AddRange(GetCheck(n.Nodes))
Next

Return lN

End Function

Fabio V Silva 11-May-11 13:39pm

Your welcome. Sorry, I couldn't reply to your other post earlier.