Question

VB的树状控件怎们弄

我想用VB的树状控件做一个三层结构，实现查询功能。
大概思路：点击最末层选项，（例如广东--广州--天河）可以调用数据库中的表，在右端的界面中显示“人口、面积……”之类的。
access的表和显示界面都已做好，就是不知如何弄树形控件以及具体编程。哪位高手指导一下，详细做好的重酬。

PS：我的VB里面找不到这个treeview……是不是要某些版本才有？麻烦发一个~追加分数
treeview已经找到，这不是关键，关键是怎么编程

Answer 1

添加一个TreeView控件和一个ImageList控件。

给你一个比较完整的代码：

'全局数组变量：
数组变量1(1 To 数据表最大记录数)，数组变量2(1 To 数据表最大记录数)，数组变量3(1 To 数据表最大记录数)......数组变量n(1 To 数据表最大记录数)
'这里也可以使用动态数组，但在下面的Form_Load过程必须使用ReDim定义数组

Private Sub Form_Load()
strSQL = "select * from 数据表"
RS.Open strSQL, db, 3, 3
Set Nodx = TreeView1.Nodes.Add()
Nodx.Text = "总标题"
Nodx.Image = "TP1"'Image1控件应该显示的图形编号
TreeView1.LabelEdit = tvwManual
Set Nodx = TreeView1.Nodes.Add(1, tvwChild, "A", "副标题")
Nodx.Image = "TP2"'Image1控件应该显示的图形编号
Dim intIndex As Integer, R As Long
intIndex = Nodx.Index
Do Until RS.EOF
数组变量1(Nodx.Index) = RS("字段1")
数组变量2(Nodx.Index) = RS("字段2")
数组变量3(Nodx.Index) = RS("字段3")
.............
数组变量n(Nodx.Index) = RS("字段n")
Nodx.Text = RS("字段x")‘需要在三级列表显示的字段
Nodx.Image = "TP3"'Image1控件应该显示的图形编号
Nodx.Tag = "Site
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Nodx.EnsureVisible
TreeView1.StartLabelEdit
End Sub

Private Sub TreeView1_NodeClick(ByVal Node1 As Node)
'点击TreeView1项目的动作
If (Node1.Index - 1) > 0 And (Node1.Index - 1) < 数据表最大记录数 Then
'判断是否点击了项目，必须的判断
'显示界面中的显示。可以用数组变量1(Node1.Index - 1),数组变量2(Node1.Index - 1),数组变量3(Node1.Index - 1)......数组变量n(Node1.Index - 1)进行显示。
End If
End Sub

Answer 2

就使用TreeView，其隶属于Microsoft Windows Common Controls。

Answer 3

在菜单“工程→部件”中勾选“Microsoft Windows Common Controls”，控件工具栏中就会有 TreeView 控件

Answer 4

部件--添加--microsoft windows common controls 6.0
如果没有 你只要去下载企业版~迅雷上有很多