三小时掌握TREEVIEW控件

eddieliu

三小时掌握TREEVIEW控件

能不能掌握控件的使用，是业余向准专业进步的关键。虽然我本人不太喜欢用控件，因为基于不同的操作环境成品后效果很难保证。但有些成熟控件，会使用还是能提高软件水平。比如TREEVIEW控件，TREEVIEW控件，也叫树控件，主要用于层级显示和控制，应用广泛。我一直很想学习这个控件的使用，但每次都没有学成，总感觉很难。前几天有空，狠下心来将论坛搜索一遍，发现也不是太难，在很短时间内只要方法得当，很快可以掌握，因为我是菜鸟，所以用菜鸟的方法和大家交流，可能大家学得更快一点，只要你用心，三个小时一定可以掌握。请大家一定要自己动手做，只有做才能理解，光看帮助和说明是没有用的。

热身：
理解层级概念，层级理论上可以有无限级，一般用到四，五级也够用了。最上级的只能有一个，我们把它叫做“爷”，接下来是“父”，再是“子”，再是“孙”，接下来是“曾孙”......，汇总如下：“爷，父，子，孙，曾孙”，这里是5级关系，除了“爷”只能有一个外，其余可以有无限个。记住这些，下面要用。


第一小时：学习直接用代码将数据填充到树控件中。
为什么要先学习直接用代码将数据填充到树控件中？因为这种方法是最简单的，代码也最容易理解，学习树控件，先将这个学会，已经掌握了一半，所以先不要急着想怎么将表中的数据填充到树控件中，在第一小时里，树控件和表完全没有关系。
目的：我们要在树控件中建立如下的一个3层级关系

   水果
    |
    |__苹果
    |  |__红富士
    |  |__国光
    |
    |__葡萄
       |__红提子
       |__青提子

解释：水果包含2种，一种是苹果，一种是葡萄，苹果又包含2种，一种是红富士，一种是国光，葡萄也如此。
在这里：“爷”是水果，“父”是苹果，葡萄，“子”是红富士，国光，红提子，青提子。概括如下：
爷（只能有一个）：水果
父（这里有2个）：父1：苹果；父2：葡萄
子（这里有4个）：子1：红富士（父1苹果的子）；子2：国光（父1苹果的子）；子3：红提子（父2葡萄的子）；子4：青提子（父2葡萄的子）
      

1、新建一个窗体，在窗体上放置两个控件，一个是Treeview，一个是Imagelist
如何找到这两个控件？
Treeview控件在“工具箱”的榔头加扳手图标（其他控件）中选“Microsoft Treeview Control,Version 6.0"
Imagelist控件在“工具箱”的榔头加扳手图标（其他控件）中选“Microsoft Imagelist Control,Version 6.0"
Treeview控件大家都明白干什么用的，Imagelist控件是干什么用呢？原来这个控件是放图标用的，如果你想在树控件中显示图标的，这个图标都将储存在ImageList控件中。

2、设置这两个控件的属性
首先要讲清楚控件的属性设置有2种，一种是设置这个控件在ACCESS中的属性，比如名称等。一种是设置这个控件本身的属性。要设置这个控件在ACCESS中的属性，选中控件后按鼠标右键选“属性”就可以了。跟我们平时设置文本框什么的一样。要设置这个控件本身的属性，只要双击这个控件就可以了。
1）设置Treeview控件在ACCESS中的名称属性，将名称设置为“Treeview"
2）设置Imagelist控件在ACCESS中的名称属性，将名称设置为“Image"
2)设置Imagelist控件本身的属性，双击控件后，在弹出来的设置框中选“Images",单击“Insert Picture"按钮，在你电脑中选择你需要的图标。在“Key:”栏中填入“K1”。其他默认设置不用改。
3）设置Treeview控件本身的属性，双击控件后，在弹出来的设置框中选“General”，在这个选项面版中有很多项设置，大多数是设置树控件的显示格式，你自己慢慢研究。这里我们将第一项“Style"选7，在第五项“Imagelist"选项中将我们放置的Imagelist控件“Image"选上。这项设置就将图标和树控件联系了起来。

3、写代码将数据填充到树控件中
代码写在哪里？我们希望窗体一打开，数据就自动填充在树控件中，所以这个代码就写在窗体的加载事件中，代码及解释如下：

Private Sub Form_Load()
'* -----------------------------------------------------------------
'*用代码将数据填充到树控件中
'* -----------------------------------------------------------------
  Dim Nodeindex As Node
'*------------------------------------------------------------------
'*解释：定义Node
'*Node是树控件的对象
'*每个Node都有三个东西，图标，文本，索引值
'*图标和文本都是实际显示出来的，索引值是隐含的
'*------------------------------------------------------------------
    '设置最顶级的“爷”:
'* ---------------------------
    Set Nodeindex = TreeView.Nodes.Add(, , "爷", "水果", "K1")
    Nodeindex.Sorted = True
'*------------------------------------------------------------------
'*树控件填充数据的方法是Nodes.Add
'*括号内是Add方法的参数<b






Office交流网开发的Access专用树控件免费下载-支持64位
http://www.office-cn.net/book/accesstree/5.html

XH8608208

顶一下，支持

hxx3970

需学习，谢谢了

shisir67

谢谢分享

72310

回复学习

fyjtyf1987

GEILI

hejin7702

每一条回复我都看完了

iehf

看完了，下原件来看看

datouda

这个确实是个入门的好例子 非常的好 只是treeview的用法太多了

chinaesc

第三小时

第三小时：将树控件与窗体结合
我们做树控件，当然不可能单单为了显示层级数据，我们希望跟窗体结合，当我们单击树控件中的某个客户时，窗体上能相应的转到这个客户的资料。

目的：将树控件与窗体结合
1、我们还是沿用第二个小时里的例子，但在建立窗体时，将窗体的数据来源设为“客户表”，并在窗体中放置好客户表的字段。
2、写入如下代码：

rivate Sub Treeview_NodeClick(ByVal Node As Object)
'* -----------------------------------------------------------------
'*树控件的鼠标点击事件为NodeClick
'* -----------------------------------------------------------------
Dim str As String
'* -----------------------------------------------------------------
'*定义一个筛选
'* -----------------------------------------------------------------
If Node.Text = "销售客户" Or Node.Key Like "父*" Or Node.Key Like "子*" Then
str = ""
'* -----------------------------------------------------------------
'*在第一小时里,我们说了Node有三个东西,图标,文本,索引值
'*文本就是text,索引值就是Key
'这里将就是说当我们点击"爷","父"或"子"层的时候,不筛选窗体
'*这个条件也可写成:If Node.key = "爷" Or Node.Key Like "父*" Or Node.Key Like "子*" Then
'* -----------------------------------------------------------------
Else
str = "[客户名称]='" & Node.Text & "'"
End If
Me.Form.FilterOn = True
Me.Form.Filter = str
'*按指定的条件进行窗体筛选
End Sub

明白了吧，所谓结合窗体，实际不过是进行窗体筛选而已。第三小时结束（5分钟也够了，哈哈）

学习很有乐趣，但写文章却很无聊，如果你通过这篇文章学会了树控件的基本使用，跟个贴吧，也好让我有点成就感。