递归过程在VB中的应用实例

　简言之，递归过程就是子程序自己调用自己。在编程有时采用递归的思路进行编程往往能够起到事半功倍的作用。

　　Win95的资源管理器具有界面直观、 操作简便的特点，深受广大电脑爱好者的欢迎和喜爱。

　　下面就采用递归过程模拟Windows的资源管理器。

　　递归过程实现的思路：

　　由于磁盘上的目录是树形结构，而树形的节点和节点级数是不受限定的，如把目录名放入一维或多维数组中则难度较大，不易实现。如采用VB的TreeView控件的Node对象，那就比较方便了。编一子程序，给定目录，并建立当前节点，加入Node对象中，根据Dir1控件判断给定目录下是否有下级目录，如有，添加下级节点，并加入Node对象中；如无则退出子程序。即子程序的功能是：如给定目录有子目录存在，则展开当前目录求子目录。如果在给定目录展开完成后，把下级目录当成给定目录，并调用子程序进行展开，即可把给定目录下的数级子目录全部展开完毕。

　　利用VB提供的TreeView控件完全可以把磁盘上的目录(包括子目录)放入Node对象中，其界面具有资源管理器的特点。把磁盘上的目录放入Node对象有多种方法，应该说采用递归方法是比较简洁的。

　　实现的过程：

　　1、 添加TreeView控件到窗体中：单击—“工程”—“部件”，选择Microsoft Windows

Common Control 5.0”复选框，单击—“确定“按钮，TreeView控件即可出现在工具箱中。

　　2、 在窗体中添加Drive、DirListBox、ImageList控件。

　　3、 控件名及主要属性如下：

控件及窗体名 属性 设置值 备注 Form Name Form1 TreeView Name TreeView Drive Name Drive1 获得当前电脑的盘符 DirListBox Name Dir1 ImageList Name ImageList 给TreeView1的Node对象图标
　　 实现的源程序如下：

Dim nodx As Node

Private Sub Form_Load()

'在 ImageList 控件中添加一个图象。

Dim imgX As ListImage

' TreeView1.ImageList = ImageList1 '初始化ImageList。

Set imgX = ImageList1.ListImages.Add(, , _

LoadPicture("c:\my documents\072.bmp"))

TreeView1.ImageList = ImageList1 '初始化ImageList。

TreeView1.LineStyle = tvwRootLines

TreeView1.Style = tvwTreelinesPlusMinusPictureText

Dim DriverCount As Integer

Dim GivePath As String

On Error Resume Next

'创建根节点

Set nodx = TreeView1.Nodes.Add(, , "本人电脑", "本人电脑", 1)

For DriverCount = 0 To Drive1.ListCount - 1

Set nodx = TreeView1.Nodes.Add("本人电脑", tvwChild, _

Drive1.List(DriverCount) "\", _

Drive1.List(DriverCount), 1)

GivePath = Drive1.List(DriverCount) "\"

Call SSplitNode(GivePath)

Next DriverCount

End Sub

Sub SSplitNode(GivePath As String) ‘子过程

'把给定目录下的子目录全部加入Node对象中

Dim SDI As Integer

Dim SDCount As Integer

Dim DString(1000) As String

‘以下为展开给定目录的下级子目录

Dir1.Path = GivePath ‘给定目录

SDCount = Dir1.ListCount ‘利用Dir1控件判断是否有下级目录

If SDCount = 0 Then Exit Sub

‘如无同退出子程序,即为递归出口。否则会形成死循环。

For SDI = 0 To SDCount - 1

DString(SDI) = Dir1.List(SDI)

Set nodx = TreeView1.Nodes.Add(GivePath, tvwChild, _

DString(SDI), FOnlyPath(DString(SDI)), 1)

Next SDI

‘调用递归(子程序自己调用自己)

For SDI = 0 To SDCount - 1

Call SSplitNode(DString(SDI))

Next SDI

End Sub

Function FOnlyPath(DString As String) As String

'功能是去掉上级目录，只留下当前目录名

'DString为给定的全路径目录名

If DString = "" Then Exit Function

Dim DLength As Integer

DLength = Len(DString)

Dim DD As Integer

For DD = DLength To 1 Step -1

If Mid(DString, DD, 1) = "\" Then Exit For

Next DD

FOnlyPath = Mid(DString, DD 1)

End Function

　　本程序在Win95,VB5.0中文版下通过。

上一篇： 使用Data控件访问数据库
下一篇： VB6中用DataReport做报表

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有