タイトル : Re^4: TreeViewのノードの保存 投稿日 : 2010/09/03(Fri) 07:37 投稿者 : ima
> ごめんなさい。訂正前のコードを貼ってしまいました。 有り難うございます。しっかり希望の動作することを確認しました。 > > とりあえず、希望の形式で出力できましたがおかしな所も有るかも知れません。 > その実装だと、たとえば下記の場合、最後の Text1-2-1 が列挙されませんよ。 そうですね!気が付きませんでした。 > > Private Sub Command2_Click() > > Dim objNode As Node, strText As String, lNodeDepth As Long > > Set objNode = TreeView1.Nodes.Item(1).FirstSibling.Child > この方法は、.Item(1) の階層位置が固定的な場合にしか利用できません。 > > たとえば、 > 【ア】.Nodes(n).Root.FirstSibling.Child > 【イ】.Nodes(n).Root.Child > 【ウ】.Nodes(1).FirstSibling.Child > とあった場合、アとイは常に「最上位先頭ノードの第一子」を示しますが、 > ウの結果は 第2階層になることもあれば第4階層になることもありえます。 .Item(1)が別の(下位)階層に移動した場合と言うことでしょうか? その階層の先頭となるのでしょうかね? → Indexは固定のため? 私のコードの修正は後日行うとして、とりあえず解決とさせていただきます。 色々詳しい解説、感謝いたします。 |