将标签添加到树节点

【问题标题】：Adding tag to treenode将标签添加到树节点
【发布时间】：2014-02-11 20:58:10
【问题描述】：

通过以下代码，我将列表框中的文件列表添加到树视图中。我想为每个添加的节点添加一个包含其文件扩展名的标签。

我已经搜索了一整天，我无法弄清楚如何将标签添加到树节点

      Dim Copy2 = aMailbox & tvProgress.SelectedNode.Parent.Text & "\" & tvProgress.SelectedNode.Text & "\" & lstRequired.Text
    Dim Copy1 = rPath & lstRequired.Text

    If File.Exists(Copy2) Then
        MsgBox("File already added. Please edit from the view above", MsgBoxStyle.OkOnly)
        Exit Sub
    End If

    If lstRequired.Text = "Add Additional Requirement" Then
        ReportSelect.Show()
        Exit Sub
    End If

    If File.Exists(Copy1) Then
        File.Copy(Copy1, Copy2)

        tvProgress.SelectedNode.Nodes.Add(lstRequired.Text)
        tvProgress.ImageIndex = 0
    Else
        MsgBox("This file no longer exists in your Lynx Repository. Please select another", MsgBoxStyle.OkOnly, "Lynx Control Panel")
        Exit Sub
    End If

End Sub

任何建议

谢谢

【问题讨论】：

标签： vb.net treeview

【解决方案1】：

只需使用该节点的Tag 属性即可。

tvProgress.SelectedNode.Nodes(i).Tag = "yourTag"

其中i 是所选节点的索引。您可以使用

获取该索引

Dim i as index
i = tvProgress.SelectedNode.Index

编辑：

tvProgress.SelectedNode.Nodes.Add(lstRequired.Text)
'try adding this code
dim i as integer
i = tvProgress.SelectedNode.Nodes.count - 1
tvProgress.SelectedNode.Nodes(i).Tag = "yourTag"
tvProgress.ImageIndex = 0

【讨论】：

谢谢，但是 Dim i as index i = tvProgress.SelectedNode.Index 给了我一个 System.data.index is not accessible in this context because it is 'Friend' 的错误 - 现在只是想解决这个问题
我还没有尝试过，但我有另一种选择：获取所选节点的节点数并将其作为索引，我将编辑我的答案。