ACCESSTreeview控件(树型控件)快速入门.pdfVIP

Access 2003 ：Treeview 控件（树型控件）快速入门 (2010-06-01 14:26:08) 很多东西看起来很复杂， 其实学起来还是蛮简单的。 说这样的话不是“站着 说话不腰疼”， 而是切切实实的感受。 很多时候我们会感到恍然大悟， 之后便轻 车熟路， 信手拈来了， 这就是前面所说的感觉， 正所谓“山重水复疑无路， 柳暗 花明又一村”。 学这个 Treeview 控件也是一样。看起来它那么复杂，解释起来连篇累牍， 但是我们需要的却往往只是其中一点，然后不断的重复使用这一点，仅仅这样， 就能解决不少实际的问题。 使用 Treeview 的优点很多，比如具有无限扩展性，一个一个的分支，分支 下面又可以增加次一级分支， 每级分支又可以有很多并列的分支， 这样就能满足 多样的需求， 另外，它还有很好的组织管理性， 因为它具有明显的层级关系， 很 多人会用 TreeView 来做物料 BOM表，可以说把这种特性发挥的淋漓尽致。 建立下面这样一个 Treeview 并不难，你只需要使用一句代码，多写几次就 OK了。 不妨来看看代码， 不过不用怕， 记住，这里只有一句代码， 其它的都在重复！ Dim ndeindex As Node Set ndeindex = TreeView0.Nodes.Add(, , a, 基础资料 , k1) Set ndeindex = TreeView0.Nodes.Add(a, tvwChild, a1, 品号资料 维护 , k1) Set ndeindex = TreeView0.Nodes.Add(, , b, 工时资料 , k1) Set ndeindex = TreeView0.Nodes.Add(b, tvwChild, b1, 观测资料 查询 , k1) Set ndeindex = TreeView0.Nodes.Add(b, tvwChild, b2, 工时查询 （依品号）, k1) Set ndeindex = TreeView0.Nodes.Add(b, tvwChild, b3, 工时查询 （依其它条件）, k1) Set ndeindex = TreeView0.Nodes.Add(, , c, 产能模式 , k1) Set ndeindex = TreeView0.Nodes.Add(c, tvwChild, c1, FCST 产能 计算 , k1) Set ndeindex = TreeView0.Nodes.Add(c, tvwChild, c2, 产能试算 , k1) Set ndeindex = TreeView0.Nodes.Add(, , d, 成本模式 , k1) 所以，不用太多解释， 你应该明白这个函数的参数的意思了吧？第一个参数 是指它从属的上级， 如果它就是顶级， 那就空着； 第二个参数表示当前这个是前 面的那个上级的下一级， 这是系统规定的， 照抄就行； 第三个参数是当前级别的 代号； 第四个参数就是当前级别的显示文字， 想看到什么就写什么； 最后一个是 指当前级别前面的图，这个在 imagelist 控件中，如果你要用，就加这个控件， 不用也行，就把这个参数空着。（如果要用，需要现在 imagelist 中插入图像， 然后再 treeview 中指定使用这个 imagelist ，k1 是在插入图像时指定的图像代 号。如下图所示） 这样，你就做出上面截图所展示出来的模样了。 但是这还只是个壳子， 你需 要