VB6控件TreeView的使用

【实验名称】VB6控件TreeView的使用

【实验原理】在FormLoad事件的时候，以TreeView中显示数据库中数据表的结构信息。

【实验步骤】

1.使用SQL Server2000数据库建立两个数据表：

CREATE TABLE [地区信息] (

[系统ID] [int] IDENTITY (1,1) NOT NULL,

[地区名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,

[地区ID] [char] (20) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

CREATE TABLE [城市信息] (

[系统ID] [int] IDENTITY (1,

[城市名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,

[地区ID] [char] (20) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

[地区信息]

1 华北地区 DT01

2 华东地区 DT02

3 华中地区 DT03

[城市信息]

1 青岛 DT02

2 北京 DT01

3 河北 DT01

4 济南 DT02

5 郑州 DT03

6 杭州 DT04

7 上海 DT04

8 广州 DT04

3.VB6建立标志的EXE工程，Ctrl+T，部件中加入：Microsoft Windows Common Control6.0（SP6）。

4.在窗体上添加一个TreeView控件，命名为tvwDiQu；一个ImageList控件，名称保留为ImageList1.初始化ImageList1，添加三张图片（右击—>属性）。

5．在FormLoad事件中加入如下代码：

Public rsDiQu As ADODB.Recordset Public rsChengShi As ADODB.Recordset Private Sub Form_Load() tvwDiQu.LineStyle = tvwTreeLines tvwDiQu.ImageList = ImageList1 tvwDiQu.Style = tvwTreelinesPlusMinusPictureText Dim nodx As Node Set rsDiQu = New ADODB.Recordset Set rsChengShi = New ADODB.Recordset UnlockDatabase '打开一个到SQL Server2000的连接Cn rsDiQu.Open "select 地区名称,地区ID from 地区信息",Cn '地区信息 If rsDiQu.RecordCount > 0 Then rsDiQu.MoveFirst Do While Not rsDiQu.EOF If rsChengShi.State = adStateOpen Then '由于要重复使用rsChengShi，所以关闭再打开 rsChengShi.Close End If rsChengShi.Open "select * from 城市信息 where 地区ID='" + Trim(rsDiQu.Fields("地区ID")) + "' ",Cn '每个城市有地区ID，依次选出地区所包括的城市 'Trim函数很重要，没有会报错。 Set nodx = tvwDiQu.Nodes.Add(,Trim(rsDiQu.Fields("地区名称")),rsDiQu.Fields("地区名称"),1) '添加地区（父）节点 If rsChengShi.RecordCount > 0 Then Do While Not rsChengShi.EOF 'Debug.Print rsChengShi.Fields("城市名称") Set nodx = tvwDiQu.Nodes.Add(Trim(rsDiQu.Fields("地区名称")),tvwChild,rsChengShi.Fields("城市名称"),3) '遍历城市，添加城市（子）节点 rsChengShi.MoveNext Loop End If 'If rsChengShi.RecordCount > 0 rsDiQu.MoveNext '添加下一个地区及其包括的城市 Loop End If 'If rsDiQu.RecordCount > 0 DestroyRs rsDiQu DestroyRs rsChengShi End Sub

6.运行，双击父节点打开或关闭子节点。效果图如下：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!