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

2019-11-18 17:52:07

字体：大中小

来源：转载

供稿：网友

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

　　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