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

2.在数据表中插入一些信息:

[地区信息]

1 华北地区 DT01

2 华东地区 DT02

3 华中地区 DT03

4 华南地区 DT04

[城市信息]

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.0SP6)。

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

5.在Formload事件中加入如下代码

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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...