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