DictionaryをTreeNodeタグで使用する -

Question

TreeViewを実装するコードを少し書いていますが、これはかなりうまくいきますが、各レベルのタグにDictionaryを入れたい1子ノード。タグがディクショナリに設定されると、タグを再宣言することなく辞書を変更することができます。

For Each verse In Verses 

    Dim _verse = verse.ToString.Trim 
    Dim _node As TreeNode = New TreeNode(_verse.Split(vbNewLine).First & "...") 
    _node.ToolTipText = _verse 
    _node.Tag = New Dictionary(Of String, Object) 
    Node.Nodes.Add(_node) 

Next 

Answer 1

後で、notのタグをDictionary(Of String, Object)にキャストしてから、いつものように辞書を操作できます。

例えば、currentNodeが対象ノードであるとすると、次のようなものができます。