Henry手记－VB.NET中动态加载Treeview节点（一）

　　　　　Henry手记－VB.NET中动态加载Treeview节点（一）

　　　　　　　　　　　　　　　　　韩睿 (2003.4.13)

 

Treeview 是一个重要的控件，无论是在 VB.NET ， C# 还是 Delphi 、 VC++ 等各种语言中，都充当了导航器的作用。在实际工作中，很多情况下需要将 Treeview 与数据库进行连接，以填充其节点。然而，往往由于数据库数据众多，一次性灌入所有的根节点与子节点，会耗用大量的起始等待时间。解决的方案，应该是动态加载节点，起始的时候，只加载根节点，在点击某个根节点时，才加载其子节点，再点击某个子节点时，才加载子节点的子节点，以此类推，这样的处理方法可以达到提高工作效率，节省访问时间的妙用。

本文仅以 VB.NET 为例，说明此方法的使用。其它的编程语言，可以进行仿效，或者给 笔者 写信。

首先应该有个数据库，用以保存数据结构与数据。本文需要的数据库为一个 Project.mdb 。其结构为（为清楚起见，以汉字字段为例，实际应用时，请自行更改）：

表名：根节点

字段	类型	大小	主键
根节点编号	文本	10	Y
根节点名称	文本	10

表名：第一级子节点

字段	类型	大小	主键
根节点编号	文本	10	Y
第一级子节点编号	文本	10	Y  联合主键
第一级子节点名称	文本	10

表名：第二级子节点

字段	类型	大小	主键
第一级子节点编号	文本	10	Y
第二级子节点编号	文本	10	Y  联合主键
第二级子节点名称	文本	10

 

三个表的关系已经很清楚了，在此不再罗列。表内填充的数据为：

根节点编号为 1 、 2 、 3 这样类推，其名称也就为根节点 1 、根节点 2 、根节点 3

第一级子节点编号规则为：根节点 1 之下的子节点编号为 11 、 12 、 13 等以此类推，根节点 2 之下的子节点编号为 21 、 22 ……子节点名称为：子节点 1 、子节点 2 ……

第二级子节点编号规则为：第一级子节点 ij 之下的第二级子节点的编号为 ij1 、 ij2 ……，其名称为统一的：孙节点 1 、孙节点 2 ……

现在让我们简单分析一下 treeview 的结构（笔者准备在另文专门剖析一下 Treeview 的结构，以方便有兴趣的网友进行高级应用）

Treeview 是由节点 TreeNode 组成的，第一级的称之为根节点 TreeRoot ，在根节点之下一级的称之为某个根节点的子节点 TreeLeaf ，某个子节点之下一级的子节点就称为该子节点的子节点。第个节点有两个标识方式，一个是它的 Text ，即显示出来的内容；另一个是它的 Tag 属性，一般用唯一标识码对其进行标识，以用于在使用时对节点的识别。在本文中，也主要用 Text 属性来显示节点的名称字段，用 Tag 属性来显示节点的编号属性。（节点编号被设为主键，也就是唯一的标识了）

 

1.加载根节点

好了，我们该开始在 VB.NET 中进行演练了！第一步，当然是看看怎么在窗体起始的时候加载根节点：

   '定义公用变量

    Dim myconnection As New OleDb.OleDbConnection()

    Dim MyAdapater As New OleDb.OleDbDataAdapter()

    Dim mycommand As New OleDb.OleDbCommand()

    Dim ds As New DataSet()

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '载入根节点表至treeview中，作为第一级

        myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/project.mdb" '数据库连接请自行更换

        mycommand.CommandText = "SELECT 根节点编号,根节点名称 FROM 根节点"

        mycommand.Connection = myconnection

        Try

            myconnection.Close()

            myconnection.Open()

            Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader

            TreeView1.Nodes.Clear()

            While mysqlreader.Read()

                Dim tree_root As New TreeNode()

                tree_root.Tag = mysqlreader.GetString(0) '把编号放入tag中

                tree_root.Text = mysqlreader.GetString(1) '树上显示的是根节点名称

                '请根据你数据库字段的类型来决定是否用getstring或其它类型

                TreeView1.Nodes.Add(tree_root)

            End While

        Catch ex As Exception

            MessageBox.Show(ex.ToString, "数据表根节点载入错误", vbOKOnly)

        Finally

            myconnection.Close()

        End Try

        TreeView1.ExpandAll()

        TreeView1.Select()

    End Sub

好了，现在运行一下程序，你可以看到如图 1 所示的起始界面

----

声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。

QQ: 18349592

E-Mail: henry7685@hotmail.com

   请访问本人专栏： http://www.csdn.net/develop/author/netauthor/Latitude/