J
jcoon
All,
can someone help me with a selectednode test, I'm able to get the single
selected tag values, see labels 6,7,8 but I'd like to get the tag values
from all the child nodes under a selected parent node.
I'd like to pass these values to txtpart770.Text thru txtpart775.Text see
below. This is where I NEED help to get the child tag values under the
selected parent
'gets single selected tag values from treeview
Label6.Text = "Current node selected:" & " " &
Me.TreeView1.SelectedNode.Text
'displaying the selected node
Label7.Text = "Tag Data " & TreeView1.SelectedNode.Tag()
If TreeView1.SelectedNode.Parent Is Nothing Then
Label8.Text = "Parent node index " & TreeView1.SelectedNode.Index
Else
Label8.Text = "Child node index " & TreeView1.SelectedNode.Index
End If
'here is start of my test id like get values for
If TreeView1.SelectedNode.Tag = ("Visual-Runway-A") Then
txtpart770Text = "Visual-Runway-A ' id like to get this value from the
parent tag value instead of typing text in the test
txtpart772.Text = "" ' how do I get this value
txtpart773.Text = "" ' how do I get this value
txtpart774.Text = "'" ' how do I get this value
txtpart775.Text = "" ' how do I get this value
End If
'here is a sampling of treeview values with text label that I want send tag
data to
TreeView1.Nodes.Add("Visual-Runway-A")
TreeView1.Nodes(0).Tag = ("Visual-Runway-A") ' txtpart770.Text =
TreeView1.Nodes(0).Nodes.Add("Inner Width").Tag = "250" ' txtpart771.Text =
TreeView1.Nodes(0).Nodes.Add("Outer Width").Tag = "1250" ' txtpart772.Text =
TreeView1.Nodes(0).Nodes.Add("Surface Length").Tag = "5000" '
txtpart773.Text =
TreeView1.Nodes(0).Nodes.Add("Slope").Tag = "20:1" ' txtpart774.Text =
TreeView1.Nodes(0).Nodes.Add("Radius").Tag = "5000" ' txtpart775.Text =
TreeView1.Nodes.Add("Visual-Runway-B")
TreeView1.Nodes(1).Tag = ("Visual-Runway-B") ' txtpart770.Text =
TreeView1.Nodes(1).Nodes.Add("Inner Width").Tag = "500" ' txtpart771.Text =
TreeView1.Nodes(1).Nodes.Add("Outer Width").Tag = "1500" ' txtpart772.Text
=
TreeView1.Nodes(1).Nodes.Add("Surface Length").Tag = "5000" '
txtpart773.Text =
TreeView1.Nodes(1).Nodes.Add("Slope").Tag = "20:1" ' txtpart774.Text =
TreeView1.Nodes(1).Nodes.Add("Radius").Tag = "5000" ' txtpart775.Text =
thanks
John
can someone help me with a selectednode test, I'm able to get the single
selected tag values, see labels 6,7,8 but I'd like to get the tag values
from all the child nodes under a selected parent node.
I'd like to pass these values to txtpart770.Text thru txtpart775.Text see
below. This is where I NEED help to get the child tag values under the
selected parent
'gets single selected tag values from treeview
Label6.Text = "Current node selected:" & " " &
Me.TreeView1.SelectedNode.Text
'displaying the selected node
Label7.Text = "Tag Data " & TreeView1.SelectedNode.Tag()
If TreeView1.SelectedNode.Parent Is Nothing Then
Label8.Text = "Parent node index " & TreeView1.SelectedNode.Index
Else
Label8.Text = "Child node index " & TreeView1.SelectedNode.Index
End If
'here is start of my test id like get values for
If TreeView1.SelectedNode.Tag = ("Visual-Runway-A") Then
txtpart770Text = "Visual-Runway-A ' id like to get this value from the
parent tag value instead of typing text in the test
txtpart772.Text = "" ' how do I get this value
txtpart773.Text = "" ' how do I get this value
txtpart774.Text = "'" ' how do I get this value
txtpart775.Text = "" ' how do I get this value
End If
'here is a sampling of treeview values with text label that I want send tag
data to
TreeView1.Nodes.Add("Visual-Runway-A")
TreeView1.Nodes(0).Tag = ("Visual-Runway-A") ' txtpart770.Text =
TreeView1.Nodes(0).Nodes.Add("Inner Width").Tag = "250" ' txtpart771.Text =
TreeView1.Nodes(0).Nodes.Add("Outer Width").Tag = "1250" ' txtpart772.Text =
TreeView1.Nodes(0).Nodes.Add("Surface Length").Tag = "5000" '
txtpart773.Text =
TreeView1.Nodes(0).Nodes.Add("Slope").Tag = "20:1" ' txtpart774.Text =
TreeView1.Nodes(0).Nodes.Add("Radius").Tag = "5000" ' txtpart775.Text =
TreeView1.Nodes.Add("Visual-Runway-B")
TreeView1.Nodes(1).Tag = ("Visual-Runway-B") ' txtpart770.Text =
TreeView1.Nodes(1).Nodes.Add("Inner Width").Tag = "500" ' txtpart771.Text =
TreeView1.Nodes(1).Nodes.Add("Outer Width").Tag = "1500" ' txtpart772.Text
=
TreeView1.Nodes(1).Nodes.Add("Surface Length").Tag = "5000" '
txtpart773.Text =
TreeView1.Nodes(1).Nodes.Add("Slope").Tag = "20:1" ' txtpart774.Text =
TreeView1.Nodes(1).Nodes.Add("Radius").Tag = "5000" ' txtpart775.Text =
thanks
John