|
■No57744 (*aka*aka* さん) に返信 > ■No57741 (shu さん) に返信 > > 例えばですが、 > ********** > TreeView1.Nodes.Add(New TreeNode("テスト1")) > TreeView1.Nodes.Add(New TreeNode("テスト2")) > ********** これなら Dim ndTest1 as New TreeNode("テスト1") Dim ndTest2 as New TreeNode("テスト2") TreeView1.Nodes.Add(ndTest1) TreeView1.Nodes.Add(ndTest2) とすればndTest1,ndTest2への追加ということで可能です。
このノードがたくさんあってこんな書き方は出来ないということであれば
Dim dicNode as new Dictionary(of String, TreeNode)
'--- 親ノード追加ループ do while (〜) Dim nd as New TreeNode(〜) Dim strKey as string = 〜 なんらかのキー項目
dicNode.add(strKey, nd) TreeView1.Nodes.Add(nd) 〜 Loop
'--- 子ノード追加ループ do while (〜) Dim strPKey = 〜なんとかしてキーを取得 Dim ndP = dicNode(strPKey) Dim ndC as New TreeNode(〜)
ndP.ChildNodes.Add(ndC) 〜 loop
こんな感じ。
|