首先在动词中建立一个新工程，单击"工程/部件" ,在控件列表中选中微软视窗软件命令控件6.0(sp4)，按下"确定"按钮返回主界面，在左侧控件窗体中选中树形视图控件置于窗体上，再放置一个Imagelist控件、两个标签控件、两个文本框控件、六个命令按钮控件，其属性分别如下：树形视图控件：名称Treeview1Imagelist控件：名称Imagelist1，并在该控件中放置三张个性图片(3232) ,建立索引1、2、3;（方法：在Imagelist控件上单击鼠标右键选择属性)标签控件：名称分别为实验(0)、实验(1),标题分别为"父节点： ""子节点： "文本框控件：名称分别为Txt(0)、Txt(1)、文本都为"" ;命令按钮控件：名称为系统默认标题分别为"添加""展开""收起""排、 序""删除""退出" 、将下列代码加入到代码框：选项显式暗淡的我作为整数迪姆J作为整数暗淡无光作为节点黯然寸哉作为布尔值'定义变量专用子命令1 _单击()如果Txt(0).文本""和Txt(1).文本"然后"不允许建立零字节的父节点和子节点寸仔=假J=TreeView1 .节点我的计数=1到树视图1。节点数检查新输入的父节点名称是否存在如果TreeView1 .选择编辑项。子级0然后If Txt(0).文本=树形视图1 .节点（一)。文本然后存哉=真结束如果下一个我如果存哉=真然后'若存在，则在父节点下建立子节点设置nodx=TreeView1 .节点。添加(Txt(0).正文，tvwChild，' child'J，Txt(1).文本，3)否则，若不存在，则建立父节点和子节点设置nodx=TreeView1 .节点。添加(，Txt(0).文本，Txt(0).文本，1)设置nodx=TreeView1 .节点。添加(Txt(0).Text，tvwChild，' child' J，_ Txt(1).文本，3)结束如果树视图1。刷新ElseIf Txt(0).文本="然后是MsgBox "请输入父节点名称!'，vbInformation，'警告!''系统提示ElseIf Txt(1).文本="然后是MsgBox "请输入子节点名称！vbInformation，'警告！结束如果结束子私有子命令2 _单击()对于I=1到TreeView1 .节点，计数
树形视图1。节点（一)。'扩展=真'展开所有节点下一步我结束子私有子命令3 _单击()对于I=1到TreeView1 .节点。计算树视图1。节点（一)。'扩展=假'收起所有节点接下来我结束子私有子命令4_Click() TreeView1 .排序=真'排列顺序结束子私有子命令5 _单击()如果树视图1。选择编辑项。索引1,然后选择树视图1。节点。删除树视图1。'选择编辑项目。索引'删除选定的节点如果结束子专用子命令6 _点击()结束，则结束退出程序结束子私有子窗体_加载()树视图1。LineStyle=TvwTreeLines '在兄弟节点和父节点之间显示线树形视图1。ImageList=ImageList1 '链接图像列树形视图1。style=tvwtreelineplusminuspicturetext '树状外观包含全部元素设置nodx=TreeView1 .节点。添加(，' kwdggx '，' kwdggx '，1)建立名称为kwdggx '的父节点，选择索引为一的图像设置nodx=TreeView1 .节点。添加(' kwdggx '，tvwChild，' child01 '，'收件箱', 3) '在kwdggx '父节点下建立'收件箱'子节点，选择索引为3的图像设置nodx=TreeView1 .节点。添加(' kwdggx '，tvwChild，' child02 '，'发件箱', 3) '在kwdggx '父节点下建立'发件箱'子节点，选择索引为3的图像存在感=假结束子私有子树视图1 _展开(通过值节点作为MSComctlLib .节点)节点ExpandedImage=2 '节点被展开时，选择索引为2的图像结束子私有子树视图1 _节点单击（按值节点作为MSComctlLib .节点)如果TreeView1 .选择编辑项。子项=0,然后'检查是否有子节点，0 为无对于I=1到TreeView1 .节点。如果树视图1,则计数。节点（一)。'选中然后“MsgBox”您选择的是：“TreeView1”.节点（一)。完整路径"子节点！' '系统提示如果下一个我结束如果结束
末端接头