Question

使用下面的代码，我将从列表框中的文件列表添加到树视图中。我想为每个包含其文件扩展名的添加节点添加一个Tag。

我整天都在搜索，因为我的生活无法解决如何在treenode上添加标签

      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

任何建议

由于

Answer 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

将标签添加到treenode

1 个答案: