將標籤添加到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

回答

相關問題