admin 管理员组文章数量: 1086019
2024年4月17日发(作者：win10虚拟机网络设置)
Access 2003：Treeview控件（树型控件）快速入门
(2010-06-01 14:26:08)
很多东西看起来很复杂，其实学起来还是蛮简单的。说这样的话不是“站着
说话不腰疼”，而是切切实实的感受。很多时候我们会感到恍然大悟，之后便轻
车熟路，信手拈来了，这就是前面所说的感觉，正所谓“山重水复疑无路，柳暗
花明又一村”。
学这个Treeview控件也是一样。看起来它那么复杂，解释起来连篇累牍，
但是我们需要的却往往只是其中一点，然后不断的重复使用这一点，仅仅这样，
就能解决不少实际的问题。
使用Treeview的优点很多，比如具有无限扩展性，一个一个的分支，分支
下面又可以增加次一级分支，每级分支又可以有很多并列的分支，这样就能满足
多样的需求，另外，它还有很好的组织管理性，因为它具有明显的层级关系，很
多人会用TreeView来做物料BOM表，可以说把这种特性发挥的淋漓尽致。
建立下面这样一个Treeview并不难，你只需要使用一句代码，多写几次就
OK了。
不妨来看看代码，不过不用怕，记住，这里只有一句代码，其它的都在重复！
Dim ndeindex As Node
Set ndeindex = (, , "a", "基础资料", "k1")
Set ndeindex = ("a", tvwChild, "a1", "品号资料
维护", "k1")
Set ndeindex = (, , "b", "工时资料", "k1")
Set ndeindex = ("b", tvwChild, "b1", "观测资料
查询", "k1")
Set ndeindex = ("b", tvwChild, "b2", "工时查询
（依品号）", "k1")
Set ndeindex = ("b", tvwChild, "b3", "工时查询
（依其它条件）", "k1")
Set ndeindex = (, , "c", "产能模式", "k1")
Set ndeindex = ("c", tvwChild, "c1", "FCST产能
计算", "k1")
Set ndeindex = ("c", tvwChild, "c2", "产能试算
", "k1")
Set ndeindex = (, , "d", "成本模式", "k1")
所以，不用太多解释，你应该明白这个函数的参数的意思了吧？第一个参数
是指它从属的上级，如果它就是顶级，那就空着；第二个参数表示当前这个是前
面的那个上级的下一级，这是系统规定的，照抄就行；第三个参数是当前级别的
代号；第四个参数就是当前级别的显示文字，想看到什么就写什么；最后一个是
指当前级别前面的图，这个在imagelist控件中，如果你要用，就加这个控件，
不用也行，就把这个参数空着。（如果要用，需要现在imagelist中插入图像，
然后再treeview中指定使用这个imagelist，k1是在插入图像时指定的图像代
号。如下图所示）
这样，你就做出上面截图所展示出来的模样了。但是这还只是个壳子，你需
要为它指定单击时发生的事件才能使得它有用。
在node（节点）的click事件中，使用这个select语句即可：
Select Case
Case "b1"
ery "produstobserved"
Case "b2"
rm "Frm_worktime_select"
Case "b3"
rm "Frm-Queryworktime"
Case "c1"
rm "FCSTcapacity"
Case "c2"
rm "Tryruncapacity"
End Select
这里只要注意一下key属性的含义就可以了。key实际上就是你在上面的函
数中使用的当前级别的代号，这样，这段代码就很好理解了。
祝大家6.1儿童节快乐！
版权声明：本文标题：ACCESS Treeview控件(树型控件)快速入门 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1713284081a627522.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论