Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim names As String = ""
Dim values As String = ""
For Each parentNodes As TreeNode In trvIndustrySelections.Nodes
For Each childNodes As TreeNode In parentNodes.Nodes
If (childNodes.Checked) Then
names = childNodes.Text + "; " + names
values = childNodes.Name + "; " + values
End If
Next
Next
txtCurrentSelectNames.Text = names
txtCurrentSelectValues.Text = values
End Sub
Wednesday, July 6, 2011
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment