欢迎光临
我们一直在努力

递归过程在vb中的应用实例_visualbasic教程

建站超值云服务器,限时71元/月

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

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

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

  递归过程实现的思路:

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

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

  实现的过程:

  1、添加TreeView控件到窗体中:单击—“工程”—“部件”,选择MicrosoftWindows

CommonControl5.0”复选框,单击—“确定“按钮,TreeView控件即可出现在工具箱中。

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

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

-width=”23″>控件及窗体名->-width=”11″>属性->-width=”16″>设置值->-width=”50″>备注->-width=”23″>Form->-width=”11″>Name->-width=”16″>Form1->-width=”50″>->-width=”23″>TreeView->-width=”11″>Name->-width=”16″>TreeView->-width=”50″>->-width=”23″>Drive->-width=”11″>Name->-width=”16″>Drive1->-width=”50″>获得当前电脑的盘符->-width=”23″>DirListBox->-width=”11″>Name->-width=”16″>Dir1->-width=”50″>->-width=”23″>ImageList->-width=”11″>Name->-width=”16″>ImageList->-width=”50″>给TreeView1的Node对象图标->

  实现的源程序如下:

->

DimnodxAsNode

PrivateSubForm_Load()

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

DimimgXAsListImage

TreeView1.ImageList=ImageList1初始化ImageList。

SetimgX=ImageList1.ListImages.Add(,,_

LoadPicture(“c:\mydocuments\072.bmp”))

TreeView1.ImageList=ImageList1初始化ImageList。

TreeView1.LineStyle=tvwRootLines

TreeView1.Style=tvwTreelinesPlusMinusPictureText

DimDriverCountAsInteger

DimGivePathAsString

OnErrorResumeNext

创建根节点

Setnodx=TreeView1.Nodes.Add(,,”本人电脑”,”本人电脑”,1)

ForDriverCount=0ToDrive1.ListCount-1

Setnodx=TreeView1.Nodes.Add(“本人电脑”,tvwChild,_

Drive1.List(DriverCount) “\”,_

Drive1.List(DriverCount),1)

GivePath=Drive1.List(DriverCount) “\”

CallSSplitNode(GivePath)

NextDriverCount

EndSub

SubSSplitNode(GivePathAsString)‘子过程

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

DimSDIAsInteger

DimSDCountAsInteger

DimDString(1000)AsString

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

Dir1.Path=GivePath‘给定目录

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

IfSDCount=0ThenExitSub

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

ForSDI=0ToSDCount-1

DString(SDI)=Dir1.List(SDI)

Setnodx=TreeView1.Nodes.Add(GivePath,tvwChild,_

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

NextSDI

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

ForSDI=0ToSDCount-1

CallSSplitNode(DString(SDI))

NextSDI

EndSub

FunctionFOnlyPath(DStringAsString)AsString

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

DString为给定的全路径目录名

IfDString=””ThenExitFunction

DimDLengthAsInteger

DLength=Len(DString)

DimDDAsInteger

ForDD=DLengthTo1Step-1

IfMid(DString,DD,1)=”\”ThenExitFor

NextDD

FOnlyPath=Mid(DString,DD 1)

EndFunction

->

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

->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 递归过程在vb中的应用实例_visualbasic教程
分享到: 更多 (0)