vb TreeView 控件应用实例

vb TreeView 控件应用实例2009-11-14 20:52TreeView 控件应用实例：将 TreeView 绑定到 Biblio.mdb 数据库应用示例：DataTree.vbp本章的代码示例是从应用示例 DataTree.vbp which is listed in the Samples directory 中得到的。

可将数据库中的数据绑定到 TreeView 控件。

下面的示例将 TreeView 控件绑定到 Biblio 数据库，该数据库可以在 Visual Basic CD 中找到。

该应用实例将 Publishers 表作为树节点的第一层。

如果一个出版商对应于一个或多个书名，则这些书名将作为该出版商的子节点加入树中。

图 2.42 与数据绑定的 TreeVew 控件下面的代码用到了如下对象：Data Access Object Library（3.5）名为“frmDataTree”的 Form 对象名为“tvwDB”的 TreeView 控件名为“cmdLoad”的 CommandButton 控件将 Biblio.mdb 数据库绑定到 TreeView 控件在工程中添加对数据访问对象（DAO 3.0）的引用。

为 Database 和 Node 对象创建模块级的变量。

在 Form Load 事件中，用 OpenDatabase 语句将 Database 对象变量设置为 Biblio 数据库。

用 Nodes 集合的 Add 方法创建顶层的节点对象。

在 CommandButton 的 Click 事件中，创建两个 Recordset 变量，并将它们设置为Publishers 和 Titles 表。

用“Do Until”语句为表中的每个出版商创建一个 Node 对象。

对每个出版商，在 Titles 记录集中检查匹配的 PubID 字段；为每个匹配项添加一个子节点。

在工程中添加对数据访问对象（DAO 3.5）的引用要将数据库绑定到 TreeView 控件，必须先添加对当前版本的数据访问对象（DAO）的引用。

为 Database 对象和 Node 对象创建模块级的变量由于需要在一个会话中多次访问 Biblio.mdb 数据库，如果创建一个模块级的 Database 对象，保持一个打开数据库，将有助于提高效率。

此后，不需要打开数据库即可访问它。

在窗体的声明部分，键入如下内容：Private mDbBiblio As Database如果希望该数据库还可被其它模块使用，可以用 Public 语句，并重命名该变量，以表明它是全局的，例如 gDbBiblio。

在创建 Node 对象时，在 Set 语句中（如下所示）使用 Node 类型的变量。

Dim TempNode As NodeSet TempNode = tvwDB.Nodes.Add()虽然可以在添加 Node 对象时创建变量，更有效的方式是声明一个模块级的 Node 对象变量，并用它创建所有的 Node 对象。

在上述声明部分再键入：Private mNode As Node用 OpenDatabase 语句将 Database 对象变量设置为 Biblio 数据库Form 对象的 Load 事件中可以初始化 Database 变量。

代码如下：Set mDbBiblio = DBEngine.OpenDatabase("BIBLIO.MDB")在成功地初始化 Database 对象变量后，就可以在该模块的代码中的任何位置自由地访问它了。

Form Load 事件：用 Nodes 集合的 Add 方法创建顶层的 Node 对象至此，Database 对象变量已经被初始化为 Biblio 数据库，现在可以创建树中的第一个节点，并将打开的数据库的名称赋予它。

首先必须用 Node 集合的 Add 方法创建第一个 Node 对象。

还要使用 Set 语句将其赋给 mNode 对象变量，如下所示：Set mNode = tvwDB.Nodes.Add() ' 创建第一个节点。

mNode.Text = 注意，在上面的代码中，在创建 Node 的同时用 Set 语句将其赋给了 mNode 对象变量。

由于 mNode 变量现在包含了新创建的 Node 对象，可以对该 Node 对象的属性进行赋值。

在上述情况下，Database 的名称（即 Database 对象的 Name 属性）已经被赋给了新节点的Text 属性。

CommandButton Click 事件：创建两个 Recordset 变量，并将它们分别设置为 Publishers 和 Titles 表本应用实例假定存在名为“cmdLoad”的按钮，并且当用户单击它时，置入 Biblio 数据库中的两个表到 TreeView 控件中。

为此，必须首先在该按钮的 Click 事件中声明两个 DAO 对象变量。

第一个变量 rsPublishers 用来包含 Publishers 表。

第二个变量 rsTitles 用来包含 Titles 表。

下面的代码声明了这两个变量，并用 OpenRecordSet 方法将表赋给变量：Dim rsPublishers As RecordsetDim rsTitles As RecordsetSet rsPublishers = mDbBiblio. _OpenRecordset("Publishers", dbOpenDynaset)Set rsTitles = mDbBiblio. _OpenRecordset("titles", dbOpenDynaset)用 Do Until 语句为表中的每个出版商创建一个 Node 对象现在有两个打开的记录集，可以遍历每个记录集，创建 Node 对象，并为该对象的 Text 属性赋予合适的值。

首先，必须遍历 Publishers 表，并为该表中的每个出版商创建一个 Node 对象。

下列简化了的代码可以用一句话概括为，“逐个处理每个记录，直到记录集的末尾：创建Node 变量，并将 Title 字段的值赋给其 Text 属性，移到下一记录并重复”：Do Until rsPublishers.EOFSet mNode = tvwDB.Nodes.Add(1, tvwChild)mNode.Text = rsPublishers!NamersPublishers.MoveNextLoop注意，在上面的 Add 方法中用了两个参数。

第一个参数（1）是我们希望添加入节点的 Node 的 Index 属性。

也就是说，希望所有的出版商节点成为第一个（根）节点（在 Form 的 Load 事件中创建的）的子节点。

第二个参数使用了常数 (tvwChild)，该常数指定新的 Node 将成为编号为“1”的 Node 的子节点。

对每个出版商，在 Titles 记录集中检查匹配的 PubID 字段；为每个匹配项添加一个子节点上面的代码将 Publishers 表的内容作为第一层填入 TreeView 中。

然而，我们还希望能够进入更深一层，为每个出版商节点增加子节点。

每个子节点代表该出版商印刷的一本书。

为了做到这一点，如果有了对新创建的出版商节点 (mNode) 的引用，只要遍历 Titles 记录集，并检查每条记录的 PubID 字段即可。

如果该字段与 Publishers 记录集中的 PubID 字段相匹配，则该书是由当前的出版商出版的。

但是，在能够为 mNode 添加节点之前，还必须先将 mNode 的 Index 属性赋给一个变量 (intIndex)，如下所示：intIndex = mNode.Index然后就可以在 Add 方法中使用该变量了，Add 方法需要用来加入子节点的 Node 对象的Index 属性：Set mNode = tvwDB.Nodes.Add(intIndex, tvwChild)如下简化的代码可被表述为“直到 Recordset 的结尾：创建子 Node 对象，并将 Title 字段的值赋给它的 Text 属性；移动到下一记录并重复上述操作”：Do Until rsTitles.EOFIf rsPublishers!PubID = rsTitles!PubID ThenSet mNode = tvwDB.Nodes.Add(intIndex, tvwChild)mNode.Text = rsTitles!Title 'Text 属性。

End IfLoop完成代码上面的代码显示了用两个相关的表填成一个表的基本策略。

全部代码如下：'必须设置对 DAO 3.5 的引用。

'在声明部分，声明模块级的对象变量：Private mDbBiblio As DatabasePrivate mNode As NodePrivate Sub Form_Load()'在 Form_Load 事件中，设置对象变量，'并创建 TreeView 控件的第一个 Node 对象。

Set mDbBiblio = DBEngine.Workspaces(0). _OpenDatabase("BIBLIO.MDB")tvwDB.Sorted = TrueSet mNode = tvwDB.Nodes.Add()mNode.Text = "Publishers"mNode.Tag = '设置 Tag 属性。

mNode.Image = "closed" '设置 Image'属性End SubPrivate Sub cmdLoad_Click()'声明 DAO 对象变量，'并将记录集赋予它们。

Dim rsPublishers As RecordsetDim rsTitles As RecordsetSet rsPublishers = mDbBiblio. _OpenRecordset("Publishers", dbOpenDynaset)Set rsTitles = mDbBiblio. _OpenRecordset("titles", dbOpenDynaset)'移到第一条记录。

rsPublishers.MoveFirstDim intIndex As Integer '用于索引的变量。

'直到最后一条记录 (EOF)：添加一个 Node 对象，'并用 Name 字段作为新'Node 对象的文本。