将标签添加到treenode

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

我搜索了一整天，我的生活不能制定出如何将标记添加到一个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

任何意见

感谢

来源

2014-02-11 elmonko

只使用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

来源

2014-02-12 03:34:32 Codemunkeee

谢谢'暗淡我作为指数 I = tvProgress.SelectedNode.Index'是给我System.data的'错误.index在这种情况下是不可访问的，因为它是'朋友' - 只是试图通过现在的工作 – elmonko

我还没有尝试过，但我有另一种选择：获取所选节点的节点数并将其作为索引，我会编辑我的答案。 – Codemunkeee

将标签添加到treenode

回答

相关问题