树形目录功能如何用VB编程实现？

树形目录功能

树形结构目录，是指针对某个范围或某群特定的有着相互联系、影响的主导体和执行体组成的一个表现为树状结构分布的上下、左右等协调合作、领导部署等一系列的结构示意图。

VB编程实现的树形结构目录

VB1
目录结构程序实现过程

1、新建VB工程，添加窗体；

2、具有在窗体上添加相应控件，引用部件；

3、设计好相应界面；

4、熟编写代码实现功能。

添
加
部
件
在工程--部件中，选择Microsoft windows common control 6.0部件，然后点击确定；
PART 2

添加控件
在左侧的工具箱窗口中，点击Treeview控件、ImageList1控件，分别添加到窗体上；
PART 3

程序实现代码
Private Sub Form_Load() Dim strArray(1 To 6) As String Dim s As String: Dim i As Integer, j As Integer, num As Integer Open App.Path & '\vb.txt' For Input As 1 '打开vb.txt文件准备读入 Do While Not EOF(1) Line Input #1, s '读入一行 i = InStr(s, '*') '查找星号*位置 j = 0 num = 0 Do While i <> 0 '截取星号之间的子串 num = num + 1 strArray(num) = Mid(s, j + 1, i - j - 1) j = i i = InStr(i + 1, s, '*') Loop num = num + 1 strArray(num) = Mid(s, j + 1, Len(s) - j) If strArray(3) = '1' Then '如为顶级层次，则添加为根节点 Tree.Nodes.Add , tvwLast, strArray(1), strArray(1) & ' ' & strArray(2) Else '如非顶级层次，添加为相应节点的子节点 Tree.Nodes.Add strArray(num), tvwChild, strArray(1), strArray(1) & ' ' & strArray(2) End If Loop Close 1 '改变图标 For i = 1 To Tree.Nodes.Count Tree.Nodes(i).ExpandedImage = 'Open' '显示打开文件夹图标 If Tree.Nodes(i).Children = 0 Then Tree.Nodes(i).Image = 'Paper' '显示文件图标 Else Tree.Nodes(i).Image = 'Close' '显示关闭文件夹图标 End If    Next     cmdSearch.Picture = ImageList1.ListImages('Find').Picture Image1.Picture = ImageList1.ListImages('Recyclebin').PictureEnd Sub

程序具有的功能：

  • 目录导航

  • 树形结构

  • 数据模糊、精确查询

  • 数据添加、删除

程序运行图

赞 (0)

相关推荐