
Setting tag value on newly added treenode?
idx = tvwTitle.SelectedNode.Parent.Index
nod = New TreeNode(frmTitle.TitleName)
nod.Tag = "Title," & frmTitle.TitleID
tvwTitle.Nodes(idx).Nodes.Add(nod)
or
idx = tvwTitle.SelectedNode.Parent.Index
nod = tvwTitle.Nodes(idx).Nodes.Add(frmTitle.TitleName)
nod.Tag = "Title," & frmTitle.TitleID
or
idx = tvwTitle.SelectedNode.Parent.Index
Dim NewIndex = tvwTitle.Nodes(idx).Nodes.Add(New
TreeNode(frmTitle.TitleName))
tvwTitle.Nodes(idx).Nodes(NewIndex).Tag = "Title," & frmTitle.TitleID
etc.
Quote:
> Is there a shorter way to set the tag value on a newly created treenode
than
> the for/next example below of iterating thru all the children of the proud
> parent?
> Dim nod As TreeNode
> Dim idx As Integer
> idx = tvwTitle.SelectedNode.Parent.Index
> tvwTitle.Nodes(idx).Nodes.Add(New TreeNode(frmTitle.TitleName))
> For Each nod In tvwTitle.Nodes(idx).Nodes
> If nod.Text = frmTitle.TitleName Then
> nod.Tag = "Title," & frmTitle.TitleID
> Exit For
> End If
> Next