VB中如何使用TreeView控件.？

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 对象时创建变量，更有效的方式是声明一个模块级的 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 = mDbBiblio.Name
注意，在上面的代码中，在创建 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 Recordset
Dim rsTitles As Recordset
Set rsPublishers = mDbBiblio. _
OpenRecordset("Publishers", dbOpenDynaset)
Set rsTitles = mDbBiblio. _
OpenRecordset("titles", dbOpenDynaset)
用 Do Until 语句为表中的每个出版商创建一个 Node 对象
现在有两个打开的记录集，可以遍历每个记录集，创建 Node 对象，并为该对象的 Text 属性赋予合适的值。首先，必须遍历 Publishers 表，并为该表中的每个出版商创建一个 Node 对象。
下列简化了的代码可以用一句话概括为，“逐个处理每个记录，直到记录集的末尾：创建 Node 变量，并将 Title 字段的值赋给其 Text 属性，移到下一记录并重复”：
Do Until rsPublishers.EOF
   Set mNode = tvwDB.Nodes.Add(1, tvwChild)
   mNode.Text = rsPublishers!Name
   rsPublishers.MoveNext
Loop
注意，在上面的 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.EOF
   If rsPublishers!PubID = rsTitles!PubID Then
      Set mNode = tvwDB.Nodes.Add(intIndex, tvwChild)
      mNode.Text = rsTitles!Title \'Text 属性。
   End If
Loop
完成代码
上面的代码显示了用两个相关的表填成一个表的基本策略。全部代码如下：
\'必须设置对 DAO 3.5 的引用。
\'在声明部分，声明模块级的对象变量：
Private mDbBiblio As Database 
Private mNode As Node
Private Sub Form_Load()
   \'在 Form_Load 事件中，设置对象变量，
   \'并创建 TreeView 控件的第一个 Node 对象。
   Set mDbBiblio = DBEngine.Workspaces(0). _
   OpenDatabase("BIBLIO.MDB")
   tvwDB.Sorted = True
   Set mNode = tvwDB.Nodes.Add()
   mNode.Text = "Publishers"
   mNode.Tag = mDbBiblio.Name   \'设置 Tag 属性。
   mNode.Image = "closed"         \'设置 Image    
                                 \'属性
End Sub 
Private Sub cmdLoad_Click()
   \'声明 DAO 对象变量，
   \'并将记录集赋予它们。
   Dim rsPublishers As Recordset
   Dim rsTitles As Recordset
   Set rsPublishers = mDbBiblio. _
   OpenRecordset("Publishers", dbOpenDynaset)
   Set rsTitles = mDbBiblio. _
   OpenRecordset("titles", dbOpenDynaset)
   \'移到第一条记录。
   rsPublishers.MoveFirst
   Dim intIndex As Integer \'用于索引的变量。
   \'直到最后一条记录 (EOF)：添加一个 Node 对象，
   \'并用 Name 字段作为新
   \'Node 对象的文本。
   Do Until rsPublishers.EOF
      Set mNode = tvwDB.Nodes.Add(1, tvwChild) 
      mNode.Text = rsPublishers!Name 
      mNode.Tag = "Publisher"   \'Tag 标识该表。
      \'为 Key 赋予唯一的 ID
      mNode.Key = CInt(rsPublishers!PubID) & " ID" 
      \'将变量 intIndex 设置为新创建 Node 的 Index 属性。
      \'用该变量将子 Node 对象加入当前 Node。
      intIndex = mNode.Index
      \'对这条记录，在 Title 表中查找与 Titles 记录集
      \'中出现相同 PubID 的记录。如果找到这样的记录，
      \'则在 TreeView 控件中加入 Node 对象，并将用所
      \'找到记录的 Title、 ISBN 和 Author 字段为新
      \'Node 对象的属性赋值。
      Do Until rsTitles.EOF
         If rsPublishers!PubID = rsTitles!PubID Then
            Set mNode = tvwDB.Nodes. _
            Add(intIndex, tvwChild)
            mNode.Text = rsTitles!Title   \'文本。
            mNode.Key = rsTitles!ISBN   \'唯一的 ID。
            mNode.Tag = "Authors"      \'表名。
            mNode.Image = "leaf"      \'图象。
         End If
      rsTitles.MoveNext \'Titles 中 的下一条记录。
      Loop
      \'将 rsTitles 重新设置为 Titles 的第一条记录。
      rsTitles.MoveFirst
      \'移动到下一条 Publisher 记录。
      rsPublishers.MoveNext 
   Loop
End Sub
增加代码
使用 SQL 语句创建较小的“Titles”记录集，可以对这个示例加以改进。下面的代码创建只包含相同 PubID 值的记录的记录集：
Set rsTitles = mDbBiblio.OpenRecordset _
("select * from Titles Where PubID = " & _
rsPublishers!PubID)
然后该代码就只需对较小的记录集进行循环，因而效率比较高。修改后的代码如下：
Private Sub cmdLoad_Click()
   Dim rsPublishers As Recordset
   Dim rsTitles As Recordset
   Set rsPublishers = mDbBiblio. _
   OpenRecordset("Publishers", dbOpenDynaset)
   Dim intIndex
   Do Until rsPublishers.EOF
      Set mNode = tvwDB.Nodes.Add(1, tvwChild)
      mNode.Text = rsPublishers!Name
      mNode.Tag = "Publisher" \'标识表。
      mNode.Key = rsPublishers!PubID & " ID" 
      mNode.Image = "closed"
      intIndex = mNode.Index
      \'对这条记录，使用查询创建 Title 表的记录集，
      \'查询条件是所有包含相同 PubID 的记录。对结果记录集中
      \'的每一条记录，在 TreeView 控件中加入一个 Node 对象，
      \'并用记录的 Title、 ISBN 和 Author 字段为新
      \'Node 对象的属性赋值。
      Set rsTitles = mDbBiblio.OpenRecordset _
      ("select * from Titles Where PubID = " & _
      rsPublishers!PubID)
      Do Until rsTitles.EOF
         Set mNode = tvwDB.Nodes. _
         Add(intIndex, tvwChild)
         mNode.Text = rsTitles!TITLE   \'文本。
         mNode.Key = rsTitles!ISBN      \'唯一的 ID。
         mNode.Tag = "Authors"      \'表名。
         mNode.Image = "smlBook"      \'图象。
         \'移动到 rsTitles 中的下一个记录。
         rsTitles.MoveNext 
      Loop
      \'移动到下一个 Publishers 记录。
      rsPublishers.MoveNext
   Loop
End Sub

参考资料：参考MSDN的, 不要见笑, 如果不成再讨论