Question

VB6.0那个treeview怎么让他显示出来就是展开的呀

那个treeview怎么让他显示出来就是展开的呀，

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Dim Nd As Node
Set Nd = TreeView1.Nodes.Add(, , "root", "根节点")
Nd.Expanded = True
Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd1", "子节点1")
Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd2", "子节点2")
Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd3", "子节点3")
Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd4", "子节点4")

End Sub