# Re: 有关treeview的控制项

Posted by Echia on July 12, 1999 at 00:26:17:

In Reply to: 有关treeview的控制项 posted by 康宝 on July 11, 1999 at 19:56:11:

如档案总管之左侧功能.可参看线上说明.底下为线上说明之一例:

Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesText '样式 4。
TreeView1.BorderStyle = vbFixedSingle
End Sub

Follow Ups: