top
Loading...
遞歸過程在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、 控件名及主要屬性如下:

控件及窗體名屬性設置值備注
FormNameForm1 
TreeViewNameTreeView 
DriveNameDrive1獲得當前電腦的盤符
DirListBoxNameDir1 
ImageListNameImageList給TreeView1的Node對象圖標

作者:http://www.zhujiangroad.com
來源:http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗