ツリービューコントロールでツリー全展開表示をするには

解決

---

はじめまして。ＶＢ初心者のリサイクルです。
ツリービューコントロールでツリー全展開表示をするには
どおしたら良いでしょうか？
よろしくお願いします。

編集 削除

---

追加です。
ＶＢ６を使用しています。

編集 削除

---

つい最近「TreeViewのキーを表示通りの順番で取得するには？？」で答えた
ノードの子ノードを列挙の仕方を応用すれば出来ますよ。

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200309/03090086.txt

ちなみにソース載せておきます。
FormのLoadにでもCall文を書いてください。
    Call NodeAllExpanded(1)
    TreeView1.Nodes.Item(1).Selected = True

Private Sub NodeAllExpanded(ByVal Index As Integer)
    Dim objNode         As Node

    Set objNode = TreeView1.Nodes.Item(Index)
    objNode.Expanded = True
    
    Set objNode = TreeView1.Nodes.Item(Index).Child
    Do Until objNode Is Nothing
        Call NodeAllExpanded(objNode.Index)
        objNode.Expanded = True
        Set objNode = objNode.Next
    Loop

    Set objNode = Nothing
End Sub
こんな感じでどうでしょう?

編集 削除

---

これじゃだめですか

For Each item In Me.TreeView1.Nodes
item.Expanded = True
    Next

編集 削除

---

リサイクルです。
okuさん、ごまさん、ありがとうございます。
うまくいきました。
今後とも宜しくお願いします。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。