Access Treeview 应用实例

《Access Treeview 应用实例》

使用说明：

本程序可在各种支持VBA语言的软件上直接使用，其中MS Access已成功测试具体步骤为： 1、 在Access里创建一个tblTreeview的数据表如下图：

2、 在Access里创建一个frmTreeview的窗体，在窗体里创建一个Treeview1的Treeview控件和一个

ImageList1的ImageList控件如下图：

第-1-页 / 共-3-页 3、 然后把程序复制到frmTreeview窗体的加载事件当中如下图：

4、 最终效果如下图：

第-2-页 / 共-3-页 程序：

Private Sub Form_Load() On Error Resume Next

Dim strParent As String, strChild As String, MyNode As Node

Me.Treeview1.Nodes.Clear '清除Treeview的所有旧节点

Me.Treeview1.ImageList =Me.ImageList1.Object '把图标加载到每个节点前面

Set rst = CurrentDb.OpenRecordset(\'Treeview节点数据来源

While Not rst.EOF

strChild = rst!ChildID

If rst!ChildID <> rst!ParentID Then

strParent = Mid(rst!ParentID, 1, Len(rst!ParentID) - Len(rst!ChildID) - 1)

Set MyNode = Me.Treeview1.Nodes.Add(strParent, tvwChild, rst!ParentID, rst!ChildID, \\'加载子节点 Else

strParent = rst!ChildID

Set MyNode = Me.Treeview1.Nodes.Add(, , strChild, rst!ChildID, \'加载父节点 End If rst.MoveNext Wend

rst.Close '关闭数据集

Me.Treeview1.HideSelection = False '离开焦点后有阴影 End Sub

第-3-页 / 共-3-页