vbTreeView控件应用实例VIP免费

vb TreeView 控件应用实例 2009-11-14 20:52 TreeView 控件应用实例：将 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 Node Set TempNode = tvwDB.Nodes.Add() 虽然可以在添加 Node 对象时创建变量，更有效的方式是声明一个模块级的 ...