vb怎么写treeview代码
答案:2 悬赏:60 手机版
解决时间 2021-12-01 13:20
- 提问者网友：龅牙恐龙妹
- 2021-12-01 09:58
vb怎么写treeview代码
最佳答案
- 五星知识达人网友：琴狂剑也妄
- 2021-12-01 10:58
TreeView1.Nodes.Add , , "r", "学籍管理信息系统", 1
TreeView1.Nodes.Add "r", tvwChild, "r1", "学生基本信息", 2
TreeView1.Nodes.Add "r1", tvwChild, "r11", "个人信息", 3
TreeView1.Nodes.Add "r1", tvwChild, "r12", "家庭信息", 3
TreeView1.Nodes.Add "r", tvwChild, "r2", "学习成绩", 4
TreeView1.Nodes.Add "r2", tvwChild, "r21", "专业成绩", 5
TreeView1.Nodes.Add "r2", tvwChild, "r22", "英语成绩", 5
TreeView1.Nodes.Add "r", tvwChild, "r3", "社团活动", 6
TreeView1.Nodes.Add "r3", tvwChild, "r31", "政治面貌", 7
TreeView1.Nodes.Add "r3", tvwChild, "r32", "获奖情况", 7
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next i
自己改改上面的汉字
TreeView1.Nodes.Add "r", tvwChild, "r1", "学生基本信息", 2
TreeView1.Nodes.Add "r1", tvwChild, "r11", "个人信息", 3
TreeView1.Nodes.Add "r1", tvwChild, "r12", "家庭信息", 3
TreeView1.Nodes.Add "r", tvwChild, "r2", "学习成绩", 4
TreeView1.Nodes.Add "r2", tvwChild, "r21", "专业成绩", 5
TreeView1.Nodes.Add "r2", tvwChild, "r22", "英语成绩", 5
TreeView1.Nodes.Add "r", tvwChild, "r3", "社团活动", 6
TreeView1.Nodes.Add "r3", tvwChild, "r31", "政治面貌", 7
TreeView1.Nodes.Add "r3", tvwChild, "r32", "获奖情况", 7
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next i
自己改改上面的汉字
全部回答
- 1楼网友：荒野風
- 2021-12-01 11:40
TreeView 控件显示 Node 对象的分层列表，每个 Node 对象均由一个标签和一个可选的位图组成。TreeView 一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。
语法
Treeview
说明
创建了 TreeView 控件之后，可以通过设置属性与调用方法对各 Node 对象进行操作，这些操作包括添加、删除、对齐和其它操作。可以编程展开与折回 Node 对象来显示或隐藏所有子节点。Collapse、Expand 和 NodeClick 三个事件也提供编程功能。
Node 对象使用 Root、Parent、Child、FirstSibling、Next、Previous 和 LastSibling 属性。在代码中可通过检索对 Node 对象的引用，从而在树上定位。也可以使用键盘定位。UP ARROW 键和 DOWN ARROW 键向下循环穿过所有展开的 Node 对象。从左到右、从上到下地选择 Node 对象。若在树的底部，选择便跳回树的顶部，必要时滚动窗口。RIGHT ARROW 键和 LEFT ARROW 键也穿过所有展开的 Node 对象，但是如果选择了未展开的 Node之后再按 RIGHT ARROW 键，该 Node 便展开；第二次按该键，选择将移向下一个 Node。相反，若扩展的 Node 有焦点，这时再按 LEFT ARROW 键，该 Node 便折回。如果按下 ANSI 字符集 中的键，焦点将跳转至以那个字母开头的最近的 Node。后续的按该键的动作将使选择向下循环，穿过以那个字母开头的所有展开节点。
控件的外观有八种可用的替换样式，它们是文本、位图、直线和 +/- 号的组合，Node 对象可以任一种组合出现。
TreeView 控件使用由 ImageList 属性指定的 ImageList 控件，来存储显示于 Node 对象的位图和图标。任何时刻，TreeView 控件只能使用一个 ImageList。这意味着，当 TreeView 控件的 Style 属性被设置成显示图像的样式时，TreeView 控件中每一项的旁边都有一个同样大小的图像。
使用 TreeView 控件
TreeView 控件可以用来显示具有层次结构的数据，例如组织树、索引项、磁盘中的文件和目录等。
图 2.40 典型的 TreeView
可能的用途
创建用户可以操作的组织树。
创建能够显示至少两层或更多层的数据库树。
设置 Node 对象属性
“树”由一些层叠的“节点”分支构成，每个节点通常包括图象（用 Image 属性设置）和标签（由 Text 属性设置）。节点的图象由与 TreeView 控件相关联的 ImageList 控件提供。关于与其它控件共同使用 ImageList 控件的更多信息，请参阅“使用 ImageList 控件”。
节点可被展开或折回，这取决于它是否有子节点，即从它出发的节点。在最上层是“根”节点，每个“根”节点可以具有任何数目的子节点。节点的总数没有限制（除非受到机器资源的限制）。图 2.41 显示了具有两个根节点的树。其中“Root 1”有三个子节点，“Child 3”自己又有一个子节点。“Root 2”有子节点，由“+”号指出，但没有展开。
图 2.41 根和子节点
树中的每个节点实际上是可编程的 Node 对象，它属于 Nodes 集合。同在其它集合中一样，集合的每个成员具有唯一的 Index 和 Key 属性，通过这些属性可以访问相应节点的其它属性。例如，下面的代码用特定节点的 Index (“7”) 设置其 Image 和 Text 属性：
tvwMyTree.Nodes(7).Image = "closed"
tvwMyTree.Nodes(7).Text = "IEEE"
然而，如果唯一的键被赋给了该节点，例如“7 ID”，那么上述代码可被改写如下：
tvwMyTree.Nodes("7 ID").Image = "closed"
tvwMyTree.Nodes("7 ID").Text = "IEEE"
节点间的关系和对关系节点的引用
每个节点可以是子节点，也可以是父节点，这取决于它与其它节点之间的关系。Node 对象具有一些属性，可以用来返回子节点或父节点的各种信息。例如，下面的代码用 Children 属性返回某个节点的子节点个数。
MsgBox tvwMyTree.Nodes(10).Children
然而，另外一些属性与 Children 属性不同，它们不返回信息，但返回对其它节点对象的引用。例如，Parent 属性返回对特定节点（只要该节点不是根节点）的父节点的引用。利用该引用，可以调用适用于 Node 对象的任何方法或设置属性来管理其父节点。例如，下面的代码返回父节点的 Text 和 Index 属性：
MsgBox tvwMyTree.Nodes(10).Parent.Text
MsgBox tvwMyTree.Nodes(10).Parent.Index
提示 使用 Set 语句处理 Node 类型的对象，以管理对其它 Node 对象的引用。例如，下面的代码将 Node 对象变量设置为 Parent 属性返回的引用。然后用该对象变量返回相关节点的属性：
Dim tempNode As Node '声明对象变量。
'将对象变量设置为返回的引用。
Set tempNode = tvwMyTree.Nodes(10).Parent
MsgBox tempNode.Text '返回父节点的 Text。
MsgBox tempNode.Index '返回父节点的 Index。
向 Nodes 集合中添加 Node 对象
要将 Node 添加到树中，可以用 Add 方法（Nodes 集合）。该方法包括两个参数，relative 和 relationship，它们确定节点被加到何处。第一个参数 relative 指定节点名称，第二个参数 relationship 指定新加入的节点与名为 relative 的节点之间的关系。
例如，下面的代码添加名为“11 node”的节点，并使其成为名为“7 node”的节点的子节点。固有常数 tvwChild 指出新节点是前一参数所指定的节点的子节点。第三个参数设置新节点的 Key 属性。
tvwMyTree.Nodes.Add "7 node", tvwChild, "11 node"
其它可能的关系包括：
常数 值 描述
tvwLast 1 该 Node 被放在所有与 relative 节点同级的节点之后。
tvwNext 2 该 Node 放在名为 relative 的节点之后。
tvwPrevious 3 该 Node 放在名为 relative 的节点之前。
tvwChild 4 该 Node 成为名为 relative 节点的子节点。
例如，假设已存在三个节点，如果想将第四个节点放在第二个和第三个节点之间，则代码如下：
'假设第二个节点的 Key 值为“2 node”。
tvwMyTree.Nodes.Add "2 node", tvwNext
Add 方法的其它参数是 key、text 和 image。用这些参数，可以在创建 Node 对象时，为其赋予 Key、Text 和 Image 属性。
详细信息 关于 Nodes 集合 Add 方法的更多信息，请在索引搜索中键入“Add 方法”并单击“Add 方法 (Nodes 集合)”，参阅“Add 方法”。
添加节点的第二个方法是：声明 Node 类型的对象变量，然后使用带 Add 方法的 Set 语句。该 Set 语句将该对象变量设置为新节点。然后就可以用该对象变量设置节点的属性，如下所示：
Dim nodX As Node
Set nodX = tvwMyTree.Nodes.Add("10 node", tvwChild)
nodX.Key = "11 node"
nodX.Text = "IEEE"
nodX.Image = "closed"
提示 使用带 Add 的 Set 语句，可使代码可读性强、容易调试。然而，如果使用 Add 方法及其参数添加节点，代码速度更快。
语法
Treeview
说明
创建了 TreeView 控件之后，可以通过设置属性与调用方法对各 Node 对象进行操作，这些操作包括添加、删除、对齐和其它操作。可以编程展开与折回 Node 对象来显示或隐藏所有子节点。Collapse、Expand 和 NodeClick 三个事件也提供编程功能。
Node 对象使用 Root、Parent、Child、FirstSibling、Next、Previous 和 LastSibling 属性。在代码中可通过检索对 Node 对象的引用，从而在树上定位。也可以使用键盘定位。UP ARROW 键和 DOWN ARROW 键向下循环穿过所有展开的 Node 对象。从左到右、从上到下地选择 Node 对象。若在树的底部，选择便跳回树的顶部，必要时滚动窗口。RIGHT ARROW 键和 LEFT ARROW 键也穿过所有展开的 Node 对象，但是如果选择了未展开的 Node之后再按 RIGHT ARROW 键，该 Node 便展开；第二次按该键，选择将移向下一个 Node。相反，若扩展的 Node 有焦点，这时再按 LEFT ARROW 键，该 Node 便折回。如果按下 ANSI 字符集 中的键，焦点将跳转至以那个字母开头的最近的 Node。后续的按该键的动作将使选择向下循环，穿过以那个字母开头的所有展开节点。
控件的外观有八种可用的替换样式，它们是文本、位图、直线和 +/- 号的组合，Node 对象可以任一种组合出现。
TreeView 控件使用由 ImageList 属性指定的 ImageList 控件，来存储显示于 Node 对象的位图和图标。任何时刻，TreeView 控件只能使用一个 ImageList。这意味着，当 TreeView 控件的 Style 属性被设置成显示图像的样式时，TreeView 控件中每一项的旁边都有一个同样大小的图像。
使用 TreeView 控件
TreeView 控件可以用来显示具有层次结构的数据，例如组织树、索引项、磁盘中的文件和目录等。
图 2.40 典型的 TreeView
可能的用途
创建用户可以操作的组织树。
创建能够显示至少两层或更多层的数据库树。
设置 Node 对象属性
“树”由一些层叠的“节点”分支构成，每个节点通常包括图象（用 Image 属性设置）和标签（由 Text 属性设置）。节点的图象由与 TreeView 控件相关联的 ImageList 控件提供。关于与其它控件共同使用 ImageList 控件的更多信息，请参阅“使用 ImageList 控件”。
节点可被展开或折回，这取决于它是否有子节点，即从它出发的节点。在最上层是“根”节点，每个“根”节点可以具有任何数目的子节点。节点的总数没有限制（除非受到机器资源的限制）。图 2.41 显示了具有两个根节点的树。其中“Root 1”有三个子节点，“Child 3”自己又有一个子节点。“Root 2”有子节点，由“+”号指出，但没有展开。
图 2.41 根和子节点
树中的每个节点实际上是可编程的 Node 对象，它属于 Nodes 集合。同在其它集合中一样，集合的每个成员具有唯一的 Index 和 Key 属性，通过这些属性可以访问相应节点的其它属性。例如，下面的代码用特定节点的 Index (“7”) 设置其 Image 和 Text 属性：
tvwMyTree.Nodes(7).Image = "closed"
tvwMyTree.Nodes(7).Text = "IEEE"
然而，如果唯一的键被赋给了该节点，例如“7 ID”，那么上述代码可被改写如下：
tvwMyTree.Nodes("7 ID").Image = "closed"
tvwMyTree.Nodes("7 ID").Text = "IEEE"
节点间的关系和对关系节点的引用
每个节点可以是子节点，也可以是父节点，这取决于它与其它节点之间的关系。Node 对象具有一些属性，可以用来返回子节点或父节点的各种信息。例如，下面的代码用 Children 属性返回某个节点的子节点个数。
MsgBox tvwMyTree.Nodes(10).Children
然而，另外一些属性与 Children 属性不同，它们不返回信息，但返回对其它节点对象的引用。例如，Parent 属性返回对特定节点（只要该节点不是根节点）的父节点的引用。利用该引用，可以调用适用于 Node 对象的任何方法或设置属性来管理其父节点。例如，下面的代码返回父节点的 Text 和 Index 属性：
MsgBox tvwMyTree.Nodes(10).Parent.Text
MsgBox tvwMyTree.Nodes(10).Parent.Index
提示 使用 Set 语句处理 Node 类型的对象，以管理对其它 Node 对象的引用。例如，下面的代码将 Node 对象变量设置为 Parent 属性返回的引用。然后用该对象变量返回相关节点的属性：
Dim tempNode As Node '声明对象变量。
'将对象变量设置为返回的引用。
Set tempNode = tvwMyTree.Nodes(10).Parent
MsgBox tempNode.Text '返回父节点的 Text。
MsgBox tempNode.Index '返回父节点的 Index。
向 Nodes 集合中添加 Node 对象
要将 Node 添加到树中，可以用 Add 方法（Nodes 集合）。该方法包括两个参数，relative 和 relationship，它们确定节点被加到何处。第一个参数 relative 指定节点名称，第二个参数 relationship 指定新加入的节点与名为 relative 的节点之间的关系。
例如，下面的代码添加名为“11 node”的节点，并使其成为名为“7 node”的节点的子节点。固有常数 tvwChild 指出新节点是前一参数所指定的节点的子节点。第三个参数设置新节点的 Key 属性。
tvwMyTree.Nodes.Add "7 node", tvwChild, "11 node"
其它可能的关系包括：
常数 值 描述
tvwLast 1 该 Node 被放在所有与 relative 节点同级的节点之后。
tvwNext 2 该 Node 放在名为 relative 的节点之后。
tvwPrevious 3 该 Node 放在名为 relative 的节点之前。
tvwChild 4 该 Node 成为名为 relative 节点的子节点。
例如，假设已存在三个节点，如果想将第四个节点放在第二个和第三个节点之间，则代码如下：
'假设第二个节点的 Key 值为“2 node”。
tvwMyTree.Nodes.Add "2 node", tvwNext
Add 方法的其它参数是 key、text 和 image。用这些参数，可以在创建 Node 对象时，为其赋予 Key、Text 和 Image 属性。
详细信息 关于 Nodes 集合 Add 方法的更多信息，请在索引搜索中键入“Add 方法”并单击“Add 方法 (Nodes 集合)”，参阅“Add 方法”。
添加节点的第二个方法是：声明 Node 类型的对象变量，然后使用带 Add 方法的 Set 语句。该 Set 语句将该对象变量设置为新节点。然后就可以用该对象变量设置节点的属性，如下所示：
Dim nodX As Node
Set nodX = tvwMyTree.Nodes.Add("10 node", tvwChild)
nodX.Key = "11 node"
nodX.Text = "IEEE"
nodX.Image = "closed"
提示 使用带 Add 的 Set 语句，可使代码可读性强、容易调试。然而，如果使用 Add 方法及其参数添加节点，代码速度更快。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯