Access编程交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

技巧

ACCESS数据库

启动/设置/选项/背景

修复/压缩

安全/加密/解密

快捷键

版本升级/其它等

数据表

命名方式/设计规范

表设计

查询

Sql语言基础

选择查询

更新查询

删除查询

追加查询

生成表查询

交叉表查询

SQL特定查询

查询参数

查询综合应用

界面/窗体/控件

标签

文本框

命令按钮

组合框/列表框

选项组/复选框/选项按钮

选项卡

子窗体

窗体本身/综合应用

其它

报表打印

报表设计

高级报表

模块/函数/VBA/API/系统

VBA基础

内置函数

调试/跟踪/Debug

模块/类模块

API/COM/系统相关

字符数字日期

网络通信游戏

加密解密安全

文件处理

经典算法

宏/菜单/工具栏/功能区

宏/脚本

菜单/工具栏

功能区/Ribbon

图表/图形/图像/多媒体

图表

图形/图像

音频

视频/动画

DAO/链接表/ADO/ADP

DAO/链接表/ODBC

ADO/RDO

ADP

ActiveX/第三方控件/插件

Treeview树控件

ListView列表控件

Toolbar工具栏控件

微软其它控件

Dbi-Tech

CodeJock

Grid++Report

FastReport

ComponentOne

加载项/插件/Addin

OFFICE集成/导入导出/交互

Excel导入导出/交互

Word导入导出/交互

PPT交互

Outlook控制/邮件

Text文本文件/INI/CSV

PDF/SWF/XML格式

CAD格式

Sharepoint/其它Office

SqlServer/其它数据库

表

视图

存储过程/触发器

函数

用户/权限/安全

调试/维护

SqlServer其它/综合

发布/打包/文档/帮助

开发版/运行时

打包/发布/部署

开发文档/帮助制作

Access完整行业系统

采购管理系统

销售管理系统

仓库管理系统

人力资源管理HRM

CRM管理系统

MRP/ERP管理系统

BRP/流程优化

其它管理系统

心得/经验/绝招
其它/杂项
Excel技巧

Excel应用与操作

Excel开发编程

Word技巧

Word应用与操作

Word开发编程

Outlook技巧

Outlook应用与操作

Outlook开发编程

热门文章

  • 一个可免注册的Access..
  • 注册ActiveX控件的几..
  • 第三方ActiveX控件L..
  • 三小时掌握TREEVIEW..
  • [经验技巧]Access中..
  • 如何注册第3方控件?

最新文章

  • 在Access中使用Fon..
  • 完美解决“无法装载这个对象..
  • 快速学习Treeview树..
  • 一个可免注册的Access..
  • Access如何添加引用及..
  • 锐浪报表(Grid++Re..

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 技巧 > ActiveX/第三方控件/插件
ActiveX/第三方控件/插件

TreeView控件使用教程3

6. Root 属性(Node 对象)

返回对所选 Node 的根 Node 对象的引用。
语法

object.Root

object 所在处代表是对象表达式,其值是“应用于”列表中的对象
说明

Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 各属性全将返回对另一个 Node 对象的引用。因此,可以同时引用并执行对 Node 的操作,如下所示:
With TreeView1.Nodes(x).Root

.Text = "New text"

.Key = "New key"

.SelectedImage = 3

End With
也可以将对象变量设置为被引用的 Node,如下所示:
Dim NodRoot As Node

'得到对节点 x 的根的引用。

Set NodRoot = TreeView1.Nodes(x).Root

'用此引用执行对根节点的操作。

With nodRoot

.Text = "New text" '改变文本。

.Key = "New key" '改变键。

.SelectedImage = 3 '改变 SelectedIma
 
7. Parent 属性(Node 对象)

这个属性返回或设置 Node 对象的父对象。仅在运行时可用。


语法

object.Parent[ = node]

Parent 属性的语法包含下面部分:
部分 描述

object 对象表达式,其值是“应用于”列表中的一个对象。

node 变成该对象的父对象的 Node 对象。
说明

在运行时,设置这个属性为一个对象的操作不能搞成一个循环,否则便发生错误。例如,不能将任何 Node 设置成为其后代的子 Node。
Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性都返回对另一个 Node 对象的引用。所以可以同时引用并执行对一个 Node 的操作,如下所示:
With TreeView1.Nodes(x).Parent

.Text = "New text"

.Key = "New key"

.SelectedImage = 3

End With
也可以将对象变量设置为引用的 Node,如下所示:
Dim NodParent As Node
Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)

'如果用户没移动鼠标,或在无效区释放它。

If TreeView1.DropHighlight Is Nothing Then

indrag = False

Exit Sub

Else

'设置被拖动的节点的 parent 属性为目标节点。

On Error GoTo checkerror '阻止循环错误。

Set nodX.Parent = TreeView1.DropHighlight

Cls

Print TreeView1.DropHighlight.Text & _

" is parent of " & nodX.Text

'释放 DropHighlight 引用。

Set TreeView1.DropHighlight = Nothing

indrag = False

Exit Sub '如未发生错误则退出。

End If
checkerror:

'定义表示 Visual Basic 错误代码的常数。

Const CircularError = 35614

If Err.Number = CircularError Then

Dim msg As String

msg = "A node can't be made a child of its own children."

'显示带有一个感叹号图标

'和“确定”与“取消”按钮的消息框。

If MsgBox(msg, vbExclamation & vbOKCancel) = vbOK Then

'释放
9. Children 属性

这个属性返回包含在 Node 对象中的各子 Node 对象的个数。


语法

object.Children

object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。


说明

在执行一个影响子节点的操作之前,可用 Children 属性检查 Node 对象是否有子节点。例如,以下代码在检索第一个 Node 的 Text 属性之前,使用 Child 属性检查子节点的存在。


Private Sub TreeView1_NodeClick(ByVal Node As Node)

If Node.Children > 0 Then

MsgBox Node.Child.Text

End If

End Sub


Children 属性示例

这个例子在 TreeView 控件中放置几个 Node 对象。这组代码检查 Node 是否有子节点。如果有,则显示子节点的文本。为试用此例,在窗体上安放一个 TreeView 控件,并在窗体的声明部分中粘贴下面的代码。运行此例,单击 Node 对象以选择它,然后单击该窗体来察看 Node 对象的子节点的文本。


Option Explicit

Private Sub Form_Click()

Dim strC As String

Dim N As Integer

If TreeView1.SelectedItem.Children > 0 Then '有子节点。

10. FirstSibling 属性(Node 对象)

这个属性返回对 TreeView 控件中的 Node 对象的第一个相邻对象的引用。


语法

object.FirstSibling

object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象


说明

第一个相邻节点是出现在一个节点层中第一个位置上的 Node。实际上到底是哪一个 Node 出现在第一个位置取决于在那一层上的 Node 对象是否被排序,这由 Sorted 属性确定。


Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性都返回对另一个 Node 对象的引用。所以可以同时引用并执行对一个 Node 的操作,如下所示:


With TreeView1.Nodes(x).FirstSibling

.Text = "New text"

.Key = "New key"

.SelectedImage = 3

End With


也可以将对象变量设置为引用的 Node,如下所示:


Dim NodFirstSib As Node

'获取 Node x 的第一个相邻节点的引用。

Set NodFirstSib = TreeView1.Nodes(x).FirstSibling

'使用这个引用执行对第一个相邻 Node 的操

发布人:佚名-Access中国  
分享到:
点击次数:  更新时间:2009-04-18 08:39:27  【打印此页】  【关闭】
上一条:Sum()和Dsum()的区别  下一条:TreeView控件使用教程2



相关文章

  • • 在Access中使用Font Awesome字符图标
  • • 完美解决“无法装载这个对象”的困扰
  • • 快速学习Treeview树状控件的详细教程
  • • 一个可免注册的Access增强控件库
  • • Access如何添加引用及调整引用的顺序
  • • 锐浪报表(Grid++Report)的一些开发技巧
  • • Grid++Report 锐浪报表开发常见问题解答集锦
  • • RichTextbox控件RTF(富文本格式)的使用及常用语法

热门文章

  • [2017-05-17] 一个可免注册的Access增强控件库access数据库
  • [2003-12-12] Treeview 控件的使用方法access数据库
  • [2004-01-07] 在access中使用DataGrid必须注意access数据库
  • [2009-04-18] TreeView控件使用教程3access数据库
  • [2005-03-17] 在Access中更改控件的默认属性access数据库
  • [2016-12-04] Access如何添加引用及调整引用的顺序access数据库

热门产品

公司动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2023 粤ICP备10043721号

QQ:18449932

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn