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

名前

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

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