Access Treeview 应用实例
- 格式:doc
- 大小:168.00 KB
- 文档页数:3
《Access Treeview 应用实例》
使用说明:
本程序可在各种支持VBA语言的软件上直接使用,其中MS Access已成功测试具体步骤为:
1、在Access里创建一个tblTreeview的数据表如下图:
2、在Access里创建一个frmTreeview的窗体,在窗体里创建一个Treeview1的Treeview控件和一个
ImageList1的ImageList控件如下图:
3、然后把程序复制到frmTreeview窗体的加载事件当中如下图:
4、最终效果如下图:
程序:
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("SELECT * FROM tblTreeview", dbOpenSnapshot, dbReadOnly) '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, "A1", "A3") '加载子节点
Else
strParent = rst!ChildID
Set MyNode = Me.Treeview1.Nodes.Add(, , strChild, rst!ChildID, "A1", "A3") '加载父节点End If
rst.MoveNext
Wend
rst.Close '关闭数据集
Me.Treeview1.HideSelection = False '离开焦点后有阴影
End Sub