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

解決

リサイクル 2003-09-30 02:44:53 No: 108882

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

リサイクル 2003-09-30 02:46:12 No: 108883

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

oku URL 2003-09-30 09:01:28 No: 108884

つい最近「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
こんな感じでどうでしょう?

ごま 2003-09-30 09:38:39 No: 108885

これじゃだめですか

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

リサイクル 2003-09-30 22:00:16 No: 108886

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