TreeView和ListView用法入门

Private Sub Form_Load()
   '设置 Treeview 控件属性。
   TreeView1.LineStyle = tvwRootLines  ' Linestyle 1

   '添加 Node 对象。
   Dim nodX As Node    '声明 Node 变量。
   '带有文本 'Root' 的第一个节点。
   Set nodX = TreeView1.Nodes.Add(, , "r", "Root") '1.这是我喜欢的一种方式！"r"字符串表示该结点标识,Root是给用户看的
  
   '下一个节点是节点 1 ("Root") 的子节点。
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child1") '2.后二个参数同上面的解释。"r"是根标识,常量tvwChld也是要求记住的。
   Set nodX = TreeView1.Nodes.Add("child1", tvwChild, "child10", "Child10")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child2", "Child2")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child3", "Child3")
  
   Dim itmX As ListItem
   Set itmX = ListView1.ListItems.Add(, , "第一张图片", 1)
   Set Item = ListView1.ListItems.Add(, , "第二张图片", 2)
   '1.ListVew的项是LstItem
   '2."..."参数是图片的显示给用户看的
   '3.数字参数是ImageList中的图片编号
  
End Sub