TreeViewでノードを最初から開かせておく (ID:81855)

名前

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

本文 Nodeを作りながら開く場合は Dim nodx As Node Set nodx = TreeView1.Nodes.Add(Parent, tvwChild,.............) nodx.EnsureVisible こんな感じで 既に出来ているノードを開く場合や、ノードを全て作った後 一斉に開く場再は For n = 1 To TreeView1.Nodes.Count TreeView1.Nodes.Item(n).Expanded = True Next となります。 ただしEnsureVisibleを使う場合にNodeの数が多い場合は速度は相当に遅くなります。