Treeview控件如何使用！

Question

比如我想在“中学”下面有“一中，二中......多个节点”！

Answer 1

Private Sub Form_Load()
   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(,,"R","中学")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C1","一中")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C2","二中")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C3","三中")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C4","四中")
   '......   nodX.EnsureVisible
   TreeView1.Style = tvwTreelinesText '样式 4。
   TreeView1.BorderStyle = vbFixedSingle
End Sub

Answer 2

URL http://pbcode.xiloo.com/treeview.zip
URL http://www.moon-soft.com/download/control/tvcheckboxes.ZIP
这两个是treeview的例子你可以直接下了参考！