Access树控件使用手册手册介绍
1 Access树控件 开发历程
2 微软树控件的缺点
2.1 版本兼容出错
2.2 不支持64位的Office
3 Access树控件的优点
4 Access扩展控件库--版本选择
4.1 Treeview树控件对应Access的版本
4.2 Treeview树控件-免费与收费的区别
5 Access扩展控件库--树控件的创建和添加节点
6 Access扩展控件库--树控件节点图标
7 Access扩展控件库--树控件常用属性
7.1 Appearance 属性(ActiveX 控件)
7.2 BackColor 属性(ActiveX 控件)
7.3 BackPicture 属性(ActiveX 控件)
7.4 BorderStyle 属性(ActiveX 控件)
7.5 Checkboxes 属性
7.6 Container 属性(ActiveX 控件)
7.7 DropHighlight 属性(ListView 和 TreeView 控件)
7.8 EditBox 属性(ActiveX 控件)
7.9 Enabled 属性(ActiveX 控件)
7.10 Font 属性(ActiveX 控件)
7.11 FullRowSelect 属性(ActiveX 控件)
7.12 Height 属性(ActiveX 控件)
7.13 HideSelection 属性(ActiveX 控件)
7.14 HotTracking 属性
7.15 Indentation 属性
7.16 ItemHeight 属性(ActiveX 控件)
7.17 LabelEdit 属性
7.18 Left 属性(ActiveX 控件)
7.19 LineStyle 属性(TreeView 控件)
7.20 MaxNodeCount 属性(ActiveX 控件)
7.21 Nodes 属性
7.22 Object 属性(ActiveX 控件)
7.23 OleDragMode 属性(ActiveX 控件)
7.24 OleDropMode 属性(ActiveX 控件)
7.25 PathSeparator 属性(TreeView控件)
7.26 Parent 属性(Node 对象)
7.27 ScaleMode 属性(ActiveX 控件)
7.28 Scroll 属性
7.29 SelectedBackColor 属性(ActiveX 控件)
7.30 SelectedForeColor 属性(ActiveX 控件)
7.31 SelectedItem 属性(ActiveX 控件)
7.32 SelectedNoFocusBackColor 属性(ActiveX 控件)
7.33 SelectedNoFocusForeColor 属性(ActiveX 控件)
7.34 SingleSel 属性
7.35 Style 属性(TreeView 控件)
7.36 Tag 属性(ActiveX 控件)
7.37 TextColor 属性(ActiveX 控件)
7.38 ToolTips 属性(ActiveX 控件)
7.39 Top 属性(ActiveX 控件)
7.40 Visible 属性(ActiveX 控件)
7.41 Width 属性(ActiveX 控件)
8 Access扩展控件库--树控件常用方法
8.1 AboutBox 方法
8.2 AddImage 方法
8.3 AddImageGroup 方法
8.4 CollapseAllNode 方法
8.5 Create 方法
8.6 Echo 方法
8.7 ExpandAllNode 方法
8.8 GetVisibleCount 方法
8.9 HitTest 方法(ListView 和 TreeView 控件)
8.10 Move 方法
8.11 Refresh 方法
8.12 SetFocus 方法
9  Access扩展控件库--树控件常用事件
9.1 AfterLabelEdit 事件(ListView 和 TreeView 控件)
9.2 BeforeLabelEdit 事件(ListView 和 TreeView 控件)
9.3 Click 事件
9.4 Collapse 事件(TreeView 控件)
9.5 DblClick 事件
9.6 Expand 事件(TreeView 控件)
9.7 GotFocus 事件
9.8 KeyDown 事件
9.9 KeyPress 事件
9.10 KeyUp 事件
9.11 LostFocus 事件
9.12 MouseDown 事件
9.13 MouseMove 事件
9.14 MouseUp 事件
9.15 NodeCheck 事件
9.16 NodeClick 事件
9.17 OLECompleteDrag 事件
9.18 OLEDragDrop 事件
9.19 OLEDragOver 事件
9.20 OLEGiveFeedback 事件
9.21 OLESetData 事件
9.22 OLEStartDrag 事件

Access扩展控件库--树控件的创建和添加节点

2017-07-06 14:35:09
zstmtony
1388
最后编辑:zstmtony 于 2017-07-13 17:28:07
 

一、准备工作

把库文件(Access2003环境用AccExCtl.mde32Access2007以上环境用AccExCtl.accde64AccessAccExCtl_64.accde)复制到你的mdb(accdb)文件所在目录,然后打开你的mdb(accdb)进入vba编辑器,引用这个库文件。

引用库文件的参考步骤:vba编辑器菜单栏—>工具—>引用—>浏览—>在查找范围框中定位到库文件所在目录—>在文件类型框选择所有文件—>选择库文件—>打开—>在可使用的引用中可以看到勾选了 AccExCtlLib,然后单击确定。

 

二、创建树控件

在窗体上添加内置控件,是先用鼠标在控件工具箱中选择,然后在窗体上点击,控件就出来了,但这个树控件不能这样创建,必须用代码创建,同时需要提供一个矩形框和一个命令按钮,如果要使树节点可编辑,还需提供一个文本框。

参考步骤:

1.打开窗体的设计视图,在窗体上添加一个矩形框和一个命令按钮。

矩形框的作用是作为树控件的躯壳,矩形框放在哪里,有多大,树控件就在哪里,就有多大,可以把这个矩形框当作是树控件。命令按钮的作用是让树控件可以获得焦点,以及指定树控件的Tab顺序,命令按钮的Tab顺序就是树控件的Tab顺序。命令按钮的大小位置可以随意,但必须和矩形框在同一个节上!这两个控件专门给树控件使用,不要再作其他用途。

2.进入窗体的代码视图在通用部分输入一行代码:

Dim WithEvents TreeView0 As TreeView

这一句是声明一个模块级的树控件类变量,这个变量就代表树控件,可以在整个窗体代码中使用。注意声明时必须使用WithEvents关键字,否则不能使用树控件的事件。

3.在窗体的加载事件过程中输入两行代码:

Set TreeView0 = New TreeView
TreeView0.Create Me.Box0, Me.Command1 , tvwTreelinesPlusMinusText

第一行把树控件实例化,实例化后才能使用树控件的各种方法属性。

第二行使用Create方法在窗体上创建树控件,Create方法的第一和第二个参数分别为之前在窗体上添加的矩形框和命令按钮,第三个参数指定树控件的显示样式,其他的参数暂时不输入,使用默认值。各参数的具体含义附在本文后面。

这时已经在窗体上创建了树控件,但这个树控件只有个边框,里面还是空的什么都没有。

三、添加节点

    通过树控件的节点集合(Nodes)Add方法添加节点。在窗体的加载事件继续输入代码:

   

 TreeView0.Nodes.Add , , "k0", "水果"
 TreeView0.Nodes.Add "k0", tvwChild, "k01", "苹果"
 TreeView0.Nodes.Add "k01", tvwChild, "k011", "红富士"
 TreeView0.Nodes.Add "k01", tvwChild, "k012", "国光"

具体的方法参数说明请看后面的附文。

四、销毁树控件

现在已输入好创建树控件和添加节点的代码,你可能急不可待的要打开窗体看看效果了吧。别急,还有一件事情必须要做,就是在窗体卸载时将树控件销毁,否则可能会造成程序崩溃!

在窗体卸载事件输入如下一行代码即可:

Set TreeView0 = Nothing



OK,现在可以保存,关闭,再打开窗体看看效果吧!

附 树控件的创建和添加节点方法参考说明

树控件的Create方法

在窗体上创建可见的树控件,创建成功则返回True

语法

表达式.Create(Container, FocusButton, Style, LineStyle, IconSize, WindowsThemeStyle)

表达式 一个代表TreeView(树控件对象)的变量

参数

ContainerAccess内置矩形框控件,必选,作为树的显示容器

FocusButton Access内置命令按钮,必选,使树可以接收焦点、键盘输入,指定树的Tab顺序

Style:树控件节点显示样式,可选,TreeStyleConstants值之一

        tvwTextOnly ........................仅文本

        tvwPictureText......................图标+文本

        tvwPlusMinusText....................加减号+文本

        tvwPlusPictureText..................加减号+图标+文本

        tvwTreelinesText ................... 连线+图标+文本

        tvwTreelinesPictureText ............ 连线+加减号+文本

        tvwTreelinesPlusMinusText ..........连线+加减号+文本

        tvwTreelinesPlusMinusPictureText ... 连线+加减号+图标+文本(默认)

LineStyle:节点连线样式,可选,TreeLineStyleConstants值之一

        tvwTreeLines ...... .................不显示根节点连线,

        tvwRootlines ...... .................显示显示根节点连线(默认)

IconSize:节点图标尺寸,可选,enumIconSize值之一

        IconNone ......... ................. 无图标

        IconSmall ........ ................. 16*16(宽16像素,高16像素)(默认)

        IconSize24 .......... .............. 24*24

        IconLarge ...... ................... 32*32

        IconSize48 .......... .............. 48*48

WindowsThemeStyle:树控件主题样式,可选,ThemeStyleConstants值之一

        tsNoTheme ... ...................... 不启用样式

        tsWinXP .... ....................... XP样式(默认)

        tsWinVista .... .................... WinVista样式

节点集合的Add方法

向树控件中添加节点,成功可返回一个Node(节点)对象。

语法

表达式.Add(Relative, Relationship, Key, Text, Image, SelectedImage, Expanded, NoReturnNode)

表达式 一个代表Nodes(树控件节点集合)的变量,可直接使用TreeViewNodes属性。

参数

Relative:一个已存在的节点的键值,可以留空

Relationship:指定新节点和Relative的关系,TreeRelationshipConstants

               tvwFirst.......新节点为和Relative同级的第一个节点

               tvwLast........新节点为和Relative同级的最后一个节点

               tvwNext........新节点为Relative的下一个节点

               tvwPrevious....新节点为Relative的上一个节点

               tvwChild ......新节点为Relative的最后一个子节点

Key:新节点的键值

Text:新节点显示的文本

Image:新节点显示的图像,为使用AddImageAddImageGroup添加的图像的索引

SelectedImage:新节点选中时显示的图像,为使用AddImageAddImageGroup添加的图像的索引

Expanded:新节点是否展开

NoReturnNode:决定是否返回新节点的Node对象,否返回,是不返回,默认为否,不返回Node对象可加快添加节点的速度