📄 20010312003.htm
字号:
<HTML>
<HEAD>
<TITLE>将指定目录装入TreeView中</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<p align="center"><span class=name00><font
color=#ff3300> </font> </span></p>
<div align=center>
<div align=center>
<div align=center><font size=2><b><font
size=3>将指定目录装入TreeView中</font></b></font></div>
<div align=center></div>
<br>
<div align=right> </div>
<br>
<div>
<div align="left">TreeView组件是一个树状的列表组件，它在应用程序的编写中有极其广泛的应用。如：资源管理器、网际快车（FlashGet）、FoxMail等，其中，Windows的资源管理器就是一个典型的例子。<br>
在C++ Builder中，要使用TreeView组件是件很容易的事情，只要调用TreeView组件的Add或AddChild方法就可以很方便地为TreeView添加一个新的节点。若要将指定的磁盘或目录的树状结构放到TreeView组件中，可以使用遍历目录树的方法将指定磁盘或目录下的所有目录（包括子目录）和文件添加到TreeView中。<br>
下面，让我们通过实际的例子来实现把C盘目录树装载到TreeView中。 <br>
首先，运行Borland C++ Builder 5.0，在窗体Form1上添加两个Button组件、一个Edit组件、一个TreeView组件和一个Animate组件。然后把组件Button1的Caption属性改为“装载TreeView1”，把组件Button2的Caption属性改为“清除”，把组件Edit1的Text属性改为“C:\”，用来设置默认的要遍历的目录--C盘的根目录，组件Animate1是在遍历目录时用来显示动画，在这里把它的CommonAVI属性设成“aviFindComputer”，为显示查找计算机的动画，你也可以设为其它动画。<br>
按F12键打开代码编辑窗口，在“TForm1 *Form1;”语句的下面加入下面的这条语句定义自定义函数BrowDir：<br>
<br>
void __fastcall BrowDir(TTreeNodes * Nodes,AnsiString PathName,TTreeNode
* Num);<br>
<br>
BrowDir函数是一个通过递归调用来实现遍历目录的自定义函数。它有三个参数，第一个参数传送一个TreeView组件的节点用以增加新的节点，第二个参数是指定目录的路径，第三个参数也是传送一个节点，用来说明要在那个节点增加新节点。<br>
下面是它的程序清单：<br>
void __fastcall BrowDir(TTreeNodes * Nodes,AnsiString PathName,TTreeNode
* Num)<br>
{<br>
<br>
TSearchRec sr;<br>
TTreeNode* Layel;<br>
//列举所有的目录 <br>
if (FindFirst(PathName+"*.*", faAnyFile, sr) == 0)<br>
{<br>
<br>
do<br>
{<br>
<br>
//判断是否是目录，并排除目录“.”和“..” <br>
if((sr.Attr & faDirectory) && sr.Name!="." &&
sr.Name!="..")<br>
{<br>
<br>
//增加新节点<br>
Layel=Nodes->AddChild(Num,"目录：" + sr.Name);<br>
//调用函数本身，进入子目录<br>
BrowDir(Nodes,PathName+sr.Name+"\\",Layel);<br>
}<br>
} while (FindNext(sr) == 0);<br>
FindClose(sr);<br>
}<br>
//列举所有文件 <br>
if (FindFirst(PathName+"*.*", faAnyFile, sr) == 0)<br>
{<br>
do<br>
{<br>
if(!(sr.Attr & faDirectory))<br>
Nodes->AddChild(Num,"文件：" + sr.Name);<br>
} while (FindNext(sr) == 0);<br>
FindClose(sr);<br>
}<br>
}<br>
<br>
将自定义函数BrowDir()添加到程序中，然后双击Button1组件，在它的OnClick事件中加入：<br>
<br>
//设置光标为漏斗<br>
Screen->Cursor=crHourGlass;<br>
//激活Animate<br>
Animate1->Active=true;<br>
AnsiString Path=Edit1->Text;<br>
//如果Path最后一个字符不是“\”就在后面加上“\” <br>
if(Path.SubString(Path.Length(),1)!="\\")<br>
<br>
Path+="\\";<br>
<br>
BrowDir(TreeView1->Items,Path,TreeView1->Items->Add(NULL,Path));<br>
//设置光标为正常状态<br>
Screen->Cursor=crDefault;<br>
//关闭Animate<br>
Animate1->Active=false;<br>
<br>
在Button2的OnClick事件中加入： <br>
<br>
TreeView1->Items->Clear();<br>
TreeView2->Items->Clear();<br>
<br>
按F9编译运行，点击“装载TreeView1”按钮，过一会儿TreeView1组件就会出现C盘目录树的结构。<br>
这种方法的优点是打开子节点的速度快，缺点就是遍历目录时，当子目录和文件越多，遍历时所需的时间就越长。用这样例子来做资源管理器，显然是不行的。<br>
我们都知道，TreeView组件有一个OnChange事件，当TreeView组件的节点发生改变的时候就会发生该事件。若在该事件中加入相应的代码，把改变的节点所表示目录下的子目录添加到TreeView组件中，这样，程序运行时速度就会很快。<br>
这种方法实现步骤如下：<br>
往窗体Form1上再添加一个Button组件和一个TreeView组件，它们的Name属性分别为：Button3和TreeView2。把Button3的Caption属性改为“装载TreeView2”，然后双击Button3组件，在Button3的OnClick事件中加入以下代码：<br>
<br>
AnsiString Path=Edit1->Text;<br>
if(Path.SubString(Path.Length(),1)!="\\")<br>
<br>
Path+="\\";<br>
<br>
TreeView2->Items->Add(NULL,Path);<br>
<br>
在TreeView2的OnChangeing事件中加入： <br>
<br>
Screen->Cursor=crHourGlass;<br>
Animate1->Active=true;<br>
//防止重复增加节点<br>
if(Node->Count==0)<br>
{<br>
<br>
TSearchRec sr;<br>
AnsiString DirName,DirTmp;<br>
TTreeNode * NodeTmp=Node;<br>
DirName=Node->Text;<br>
//得到完整的路径 <br>
for(int I=Node->Level ;I>0 ;I--)<br>
{<br>
<br>
NodeTmp=NodeTmp->Parent;<br>
DirTmp=NodeTmp->Text;<br>
if(DirTmp.SubString(DirTmp.Length(),1)!="\\")<br>
<br>
DirTmp+="\\";<br>
<br>
DirName.Insert(DirTmp,0);<br>
<br>
}<br>
if(DirName.SubString(DirName.Length(),1)!="\\")<br>
<br>
DirName+="\\";<br>
<br>
if (FindFirst(DirName+"*.*", faAnyFile, sr) == 0)<br>
{<br>
<br>
do<br>
{<br>
<br>
if((sr.Attr & faDirectory) && sr.Name!="." &&
sr.Name!="..")<br>
{<br>
<br>
TreeView2->Items->AddChild(Node,sr.Name);<br>
<br>
}<br>
<br>
} while (FindNext(sr) == 0);<br>
FindClose(sr);<br>
}<br>
} <br>
Screen->Cursor=crDefault;<br>
Animate1->Active=false;<br>
这种方法速度虽然很快，但由于只是添加一层的子目录，所得到的节点表示的目录下不管有没有子目录，节点左边都没有“＋”符号（有“＋”表示有子节点），因此就有必要将它修改一下了，于是就有第三种方法的出现。<br>
第二种方法是因为只添加了下一级的子目录，所以才会出现这种问题，如果我们添加到下两级的子目录，问题就会得到解决，这就是第三种方法。这样，当打开一个节点的时候，OnChange事件的代码就会把下两级的子目录添加进来，再打开一个节点，该节点下两级的子目录又被添加进来，看起来就像是把整个目录树放到了TreeView中一样。<br>
第三种方法的实现如下：<br>
再添加一个Button组件Button4和一个TreeView组件TreeView3到窗体Form1上，将Button4的Caption属性改为“装载TreeView3”，双击Button4组件，在Button4的OnClick事件中加入以下代码：<br>
<br>
AnsiString Path=Edit1->Text;<br>
if(Path.SubString(Path.Length(),1)!="\\")<br>
<br>
Path+="\\";<br>
<br>
TTreeNode * Node1=TreeView3->Items->Add(NULL,Path);<br>
TSearchRec sr;<br>
if (FindFirst(Path+"*.*", faAnyFile, sr) == 0)<br>
{<br>
<br>
do<br>
{<br>
<br>
if((sr.Attr & faDirectory) && sr.Name!="." &&
sr.Name!="..")<br>
{<br>
<br>
TreeView3->Items->AddChild(Node1,sr.Name);<br>
<br>
}<br>
<br>
} while (FindNext(sr) == 0);<br>
FindClose(sr);<br>
<br>
}<br>
<br>
在TreeView3的OnChangeing事件中加入：<br>
<br>
Screen->Cursor=crHourGlass;<br>
Animate1->Active=true;<br>
TSearchRec sr;<br>
TTreeNode * NodeTmp=Node;<br>
AnsiString DirName,DirTmp;<br>
DirName=Node->Text;<br>
for(int I=Node->Level ;I>0 ;I--)<br>
{<br>
<br>
NodeTmp=NodeTmp->Parent;<br>
DirTmp=NodeTmp->Text;<br>
if(DirTmp.SubString(DirTmp.Length(),1)!="\\")<br>
DirTmp+="\\";<br>
DirName.Insert(DirTmp,0);<br>
<br>
}<br>
if(DirName.SubString(DirName.Length(),1)!="\\")<br>
<br>
DirName+="\\";<br>
<br>
for(int J=0;J<Node->Count;J++)<br>
{<br>
<br>
if(Node->Item[J]->Count==0);<br>
{<br>
<br>
if (FindFirst(DirName+Node->Item[J]->Text+"\\*.*", faAnyFile,
sr) == 0)<br>
{<br>
<br>
do<br>
{<br>
<br>
if((sr.Attr & faDirectory) && sr.Name!="." &&
sr.Name!="..")<br>
{<br>
<br>
TreeView3->Items->AddChild(Node->Item[J] ,sr.Name);<br>
<br>
}<br>
<br>
} while (FindNext(sr) == 0);<br>
<br>
FindClose(sr);<br>
}<br>
<br>
}<br>
<br>
}<br>
Screen->Cursor=crDefault;<br>
Animate1->Active=false;<br>
<br>
好了，程序代码加入完后，将各个组件排列一下，按F9再编译运行一次，这三种将目录树的结构装入TreeView中的方法，你比较喜欢那一种呢？自己比较一下吧。以上的程序在Win98/Win2000，Borland
C++ Builder 5.0下运行通过。</div>
</div>
</div>
</div>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -