使用treelist控件或者treeview控件

解决方案 »

  1.   

    treeview控件应该可以满足你的要求了。
      

  2.   

    用TreeView控件。
    dim object as treeview
    set object=new treeview
    object.Add(relative, relationship, key, text, image, selectedimage)
    object
     必需的。对象表达式,其值是“应用于”列表中的一个对象
     
    relative
     可选的。已存在的 Node 对象的索引号或键值。新节点与已存在的节点间的关系,可在下一个参数 relationship 中找到。
     
    relationship
     可选的。指定的 Node 对象的相对位置,如设置值中所述。
     
    key
     可选的。唯一的字符串,可用于用 Item 方法检索 Node。
     
    text
     必需的。在 Node 中出现的字符串。
     
    image
     可选的。在关联的 ImageList 控件中的图象的索引。
     
    selectedimage
     可选的。在关联的 ImageList 控件中的图象的索引,在 Node 被选中时显示。
       设置值
    relationship 的设置值是:
    常数
     值
     描述
     
    tvwFirst
     0
     首的节点。该 Node 和在 relative 中被命名的节点位于同一层,并 位于所有同层节点之前。
     
    tvwLast
     1
     最后的节点。该 Node 和在 relative 中被命名的节点位于同一层,并 位于所有同层节点之后。任何连续地添加的节点可能位于最后添加的节点之后
     
    tvwNext
     2
     (缺省)下一个节点。该 Node 位于在 relative 中被命名的节点之后。
     
    tvwPrevious
     3
     前一个节点。该 Node 位于在 relative 中被命名的节点之前。
     
    tvwChild
     4
     (缺省)子节点。该 Node 成为在 relative 中被命名的节点的子节点。