1、TREEVIEW控件掌握TREEVIEW控件TREEVIEW控件在正常ACCESS数据库使用中是很频繁的,下面这篇文章与大家分享一下: 一、详见如下:能不能掌握控件的使用,是业余向准专业进步的关键。比如TREEVIEW控件,TREEVIEW控件,也叫树控件,主要用于层级显示和控制,应用广泛。我一直很想学习这个控件的使用,但每次都没有学成,总感觉很难。前几天有空,狠下心来将论坛搜索一遍,发现也不是太难,在很短时间内只要方法得当,很快可以掌握,因为我是菜鸟,所以用菜鸟的方法和大家交流,可能大家学得更快一点,只要你用心,三个小时一定可以掌握。请大家一定要自己动手做,只有做才能理解,光看帮助和说明是没
2、有用的。 热身:理解层级概念,层级理论上可以有无限级,一般用到四,五级也够用了。最上级的只能有一个,我们把它叫做“爷”,接下来是“父”,再是“子”,再是“孙”,接下来是“曾孙”.,汇总如下:“爷,父,子,孙,曾孙”,这里是5级关系,除了“爷”只能有一个外,其余可以有无限个。记住这些,下面要用。 第一小时:学习直接用代码将数据填充到树控件中。为什么要先学习直接用代码将数据填充到树控件中?因为这种方法是最简单的,代码也最容易理解,学习树控件,先将这个学会,已经掌握了一半,所以先不要急着想怎么将表中的数据填充到树控件中,在第一小时里,树控件和表完全没有关系。目的:我们要在树控件中建立如下的一个3层级
3、关系 水果 | |_苹果 | |_红富士 | |_国光 | |_葡萄 |_红提子 |_青提子 解释:水果包含2种,一种是苹果,一种是葡萄,苹果又包含2种,一种是红富士,一种是国光,葡萄也如此。在这里:“爷”是水果,“父”是苹果,葡萄,“子”是红富士,国光,红提子,青提子。概括如下:爷(只能有一个):水果父(这里有2个):父1:苹果;父2:葡萄子(这里有4个):子1:红富士(父1苹果的子);子2:国光(父1苹果的子);子3:红提子(父2葡萄的子);子4:青提子(父2葡萄的子)下面我们在ACCESS中栽下这棵树,步骤如下:1、新建一个窗体,在窗体上放置两个控件,一个是Treeview,一个是Ima
4、gelist如何找到这两个控件?Treeview控件在“工具箱”的榔头加扳手图标(其他控件)中选“Microsoft Treeview Control,Version 6.0;Imagelist控件在“工具箱”的榔头加扳手图标(其他控件)中选“Microsoft Imagelist Control,Version 6.0。Treeview控件大家都明白干什么用的,Imagelist控件是干什么用呢?原来这个控件是放图标用的,如果你想在树控件中显示图标的,这个图标都将储存在ImageList控件中。 2、设置这两个控件的属性首先要讲清楚控件的属性设置有2种,一种是设置这个控件在ACCESS中的属
5、性,比如名称等。一种是设置这个控件本身的属性。要设置这个控件在ACCESS中的属性,选中控件后按鼠标右键选“属性”就可以了。跟我们平时设置文本框什么的一样。要设置这个控件本身的属性,只要双击这个控件就可以了。1)设置Treeview控件在ACCESS中的名称属性,将名称设置为“Treeview2)设置Imagelist控件在ACCESS中的名称属性,将名称设置为“Image2)设置Imagelist控件本身的属性,双击控件后,在弹出来的设置框中选“Images,单击“Insert Picture按钮,在你电脑中选择你需要的图标。在“Key:”栏中填入“K1”。其他默认设置不用改。3)设置Tre
6、eview控件本身的属性,双击控件后,在弹出来的设置框中选“General”,在这个选项面版中有很多项设置,大多数是设置树控件的显示格式,你自己慢慢研究。这里我们将第一项“Style选7,在第五项“Imagelist选项中将我们放置的Imagelist控件“Image选上。这项设置就将图标和树控件联系了起来。 3、写代码将数据填充到树控件中代码写在哪里?我们希望窗体一打开,数据就自动填充在树控件中,所以这个代码就写在窗体的加载事件中,代码及解释如下: Private Sub Form_Load()* -*用代码将数据填充到树控件中* - Dim Nodeindex As Node*-*解释:定
7、义Node*Node是树控件的对象*每个Node都有三个东西,图标,文本,索引值*图标和文本都是实际显示出来的,索引值是隐含的*- 设置最顶级的“爷”:* - Set Nodeindex = TreeView.Nodes.Add(, , 爷, 水果, K1) Nodeindex.Sorted = True*-*树控件填充数据的方法是Nodes.Add*括号内是Add方法的参数*在这里“爷”是索引值,“水果”是将显示的文本,“K1”是图标的索引值*Sorted是指Node的排序,True就是指采用排序,默认是按拼音*第一,二个参数是空的*具体的参数设置以后你可以慢慢详细研究*- 设置第二级“父”
8、* - Set Nodeindex = TreeView.Nodes.Add(爷, tvwChild, 父1, 苹果, K1) Nodeindex.Sorted = True Set Nodeindex = TreeView.Nodes.Add(爷, tvwChild, 父2, 葡萄, K1) Nodeindex.Sorted = True*-*第一个参数“爷”是指这一层对应上层“爷”的*tvwChild参数是规定格式,指相对来说,这一层是爷的子层*“父1”是索引值,因为“父”有2个,而索引值是唯一的,所以要编号,用“父1”“父2”分开*“苹果”“葡萄”是要显示的文本,K1是显示图标的索引值*
9、现在知道为什么在“爷”层设置时,第一,第二个参数是空的,因为这是最顶层*- 设置第三级“子”* - Set Nodeindex = TreeView.Nodes.Add(父1, tvwChild, 子1, 红富士, K1) Nodeindex.Sorted = True Set Nodeindex = TreeView.Nodes.Add(父1, tvwChild, 子2, 国光, K1) Nodeindex.Sorted = True Set Nodeindex = TreeView.Nodes.Add(父2, tvwChild, 子3, 红提子, K1) Nodeindex.Sorted
10、= True Set Nodeindex = TreeView.Nodes.Add(父2, tvwChild, 子4, 青提子, K1) Nodeindex.Sorted = True*-*第一个参数“父1,2”是指这一层对应上层“父”的,但要注意对应的是“父1”还是“父2”*tvwChild参数是规定格式,指相对来说,这一层是父的子层*“子1”是索引值,因为“子”有4个,而索引值是唯一的,所以要编号,用“1,2,3,4”分开*“红富士”等是要显示的文本,K1是显示图标的索引值,注意K1区分大小写。*-End Sub 就这么多代码,总共十几行,就可以在树控件中显示数据了,很简单吧。第一小时结束
11、。第二小时:学习怎样将树控件和数据库中的数据绑起来在第一小时里,我们学习了怎样直接用代码填充树控件,但在实际使用中,这种方法的应用性不大,只有将树控件与数据库中的数据结合起来,才能有真正的应用。其实绑定数据库的方法和直接用代码填充是大同小异的,我们要做的只是将Add的参数里,原来我们手工输入的变换一下,让程序知道去数据库中找数据。 目的:将数据库中的数据与树控件绑定背景:我们想在树控件中显示销售客户的层级列表,这个销售客户的分层是这样的,先按“大区”,再按“省份”,最后到“客户”我们在数据库中建立了三个表,字段如下:大区表:大区ID,大区名称省份表:省份ID,省份名称,所属大区客户表:客户ID
12、,客户名称,所属省份这三个表互相建立了关系 1、新建一个窗体,在窗体上放置两个控件,一个是Treeview,一个是Imagelist2、设置这两个控件的属性在这里和第一小时唯一的区别是我们在设置Imagelist控件时,导入了两个图标,一个KEY为K1,一个为K2,原来树控件的Node图标是可以变化的,我们准备某个项没有选中时的图标是一个没有打开的文件夹,选中时是一个打开的文件夹,以区别。3、编写代码,如下: Private Sub Form_Load()* -* 用数据库表(查询也一样)中数据填充树控件* - Dim Rec As New ADODB.Recordset Dim stRecQ
13、L As String Dim Item As Integer Dim i As Integer Dim nodindex As Node* -* 定义各类* - 设置最顶级的爷* - Set nodindex = TreeView.Nodes.Add(, , 爷, 销售客户, K1, K2) nodindex.Sorted = True* -*这里的设置跟第一小时里基本是一样的*但最后多了一个K2的参数,K1代表的是未被选中时的图标,K2代表是被选中后的图标*仔细观察一下,你会发现选中和没选中的图标是不一样的,一个是一个文件夹,一个是一个打开的文件夹* - 设置第二级父* - Rec.Ope
14、n 大区表, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect For i = 0 To Rec.RecordCount - 1 Set nodindex = TreeView.Nodes.Add(爷, tvwChild, 父 & Rec.Fields(大区ID), Rec.Fields(大区名称), K1, K2) nodindex.Sorted = True Rec.MoveNext Next Rec.Close* -*第一行意思是打开一个表去寻找数据(查询也是可以的)*关键在与Add参数
15、的变化*大家看第三个参数,在第一小时里,这里是父1,这里用Rec.Fields(大区ID)来代替1,意思是用表的编号来代替手工编号*第四个参数也是一样,直接用表中的名称字段来取代原来我们手工的命名* - 设置第三级子* - Rec.Open 省份表, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect For i = 0 To Rec.RecordCount - 1 Set nodindex = TreeView.Nodes.Add(父 & Rec.Fields(所属大区), tvwChild,
16、 子 & Rec.Fields(省份ID), Rec.Fields(省份名称), K1, K2) nodindex.Sorted = True Rec.MoveNext Next Rec.Close* -*不用再解释了吧*要注意的是,定义第一个参数的时候,不是用父 & Rec.Fields(大区ID),而是用父 & Rec.Fields(所属大区)*这个意思是:用省份表中关联大区表的字段,而不是直接用大区表的ID* - 设置第四级孙* -Rec.Open 客户表, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdT
17、ableDirect For i = 0 To Rec.RecordCount - 1 Set nodindex = TreeView.Nodes.Add(子 & Rec.Fields(所属省份), tvwChild, 孙 & Rec.Fields(客户ID), Rec.Fields(客户名称), K1, K2) nodindex.Sorted = True Rec.MoveNext Next Rec.Close * -*到此你应该完全明白了* - End Sub 第二小时结束第三小时:将树控件与窗体结合我们做树控件,当然不可能单单为了显示层级数据,我们希望跟窗体结合,当我们单击树控件中的某个
18、客户时,窗体上能相应的转到这个客户的资料。 目的:将树控件与窗体结合1、我们还是沿用第二个小时里的例子,但在建立窗体时,将窗体的数据来源设为“客户表”,并在窗体中放置好客户表的字段。2、写入如下代码: Private Sub Treeview_NodeClick(ByVal Node As Object)* -*树控件的鼠标点击事件为NodeClick* -Dim str As String* -*定义一个筛选* -If Node.Text = 销售客户 Or Node.Key Like 父* Or Node.Key Like 子* Thenstr = * -*在第一小时里,我们说了Node有
19、三个东西,图标,文本,索引值*文本就是text,索引值就是Key这里将就是说当我们点击爷,父或子层的时候,不筛选窗体*这个条件也可写成:If Node.key = 爷 Or Node.Key Like 父* Or Node.Key Like 子* Then* -Elsestr = 客户名称= & Node.Text & End IfMe.Form.FilterOn = TrueMe.Form.Filter = str*按指定的条件进行窗体筛选End Sub 明白了吧,所谓结合窗体,实际不过是进行窗体筛选而已。第三小时结束(5分钟也够了,哈哈) TreeView概述TreeView 控件显示 N
20、ode 对象的分层列表,每个 Node 对象均由一个标签和一个可选的位图组成。TreeView 一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。创建了 TreeView 控件之后,可以通过设置属性与调用方法对各 Node 对象进行操作,这些操作包括添加、删除、对齐和其它操作。可以编程展开与折回 Node 对象来显示或隐藏所有子节点。Collapse、Expand 和 NodeClick 三个事件也提供编程功能。Node 对象使用 Root、Parent、Child、FirstSibling、Next、Previous 和 LastSibling 属性。在
21、代码中可通过检索对 Node 对象的引用,从而在树上定位。也可以使用键盘定位。UP ARROW 键和 DOWN ARROW 键向下循环穿过所有展开的 Node 对象。从左到右、从上到下地选择 Node 对象。若在树的底部,选择便跳回树的顶部,必要时滚动窗口。RIGHT ARROW 键和 LEFT ARROW 键也穿过所有展开的 Node 对象,但是如果选择了未展开的 Node之后再按 RIGHT ARROW 键,该 Node 便展开;第二次按该键,选择将移向下一个 Node。相反,若扩展的 Node 有焦点,这时再按 LEFT ARROW 键,该 Node 便折回。如果按下 ANSI 字符集
22、中的键,焦点将跳转至以那个字母开头的最近的 Node。后续的按该键的动作将使选择向下循环,穿过以那个字母开头的所有展开节点。 控件的外观有八种可用的替换样式,它们是文本、位图、直线和 +/- 号的组合,Node 对象可以任一种组合出现。 TreeView 控件使用由 ImageList 属性指定的 ImageList 控件,来存储显示于 Node 对象的位图和图标。任何时刻,TreeView 控件只能使用一个 ImageList。这意味着,当 TreeView 控件的 Style 属性被设置成显示图象的样式时,TreeView 控件中每一项的旁边都有一个同样大小的图象。 发行注意 TreeVi
23、ew 控件是 COMCTL32.OCX 文件中的一组 ActiveX 控件的一部分。为了在应用程序中使用 TreeView 控件,必须将 COMCTL32.OCX 文件添加到工程中。在发行应用程序时,要在用户的 Microsoft Windows System 或 System32 目录中安装 COMCTL32.OCX 文件。 属性DropHighlight属性(ListView, TreeView控件), Indentation属性, LabelEdit属性, LineStyle属性, Nodes属性, PathSeparator属性(TreeView控件), SelectedItem属性(
24、ActiveX控件), Sorted属性(TreeView控件), Style属性(TreeView控件), Checkboxes属性, FullRowSelect属性, Scroll属性, SingleSel属性, HotTracking属性, TabIndex属性, Tag属性, Visible属性, DragIcon属性, DragMode属性, CausesValidation属性, MouseIcon属性, TabStop属性, HelpContextID属性, Name属性, Parent属性, Container属性, ToolTipText属性, WhatsThisHelpID属性,
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1