今天图老师小编给大家精心推荐个用TreeView浏览目录教程,一起来看看过程究竟如何进行吧!喜欢还请点个赞哦~
【 tulaoshi.com - 编程语言 】
void __fastcall TForm1::FormCreate(TObject *Sender)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)
{
CurrentDir=GetCurrentDir();
UpdateTreeView();
UpdateListView();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UpdateTreeView()
{
TTreeNode *rNode,*mNode;
TreeView1-Items-Clear();
rNode=TreeView1-Items-Add(TreeView1-Selected,"我的电脑");
rNode-ImageIndex=1;
rNode-SelectedIndex=1;
mNode=TreeView1-Items-AddChild(rNode,"A:");
mNode-ImageIndex=2;
mNode-SelectedIndex=2;
AddDirectory("A:",mNode);
for(int i=1;iDriveComboBox1-Items-Count;i++)
{
mNode=TreeView1-Items-AddChild(rNode,AnsiString(char('B'+i))+":");
mNode-ImageIndex=3;
mNode-SelectedIndex=3;
AddDirectory(AnsiString(char('B'+i))+":",mNode);
}
}
//------------------------------------------------------------------------
void TForm1::AddDirectory(AnsiString path,TTreeNode *fNode)
{
TSearchRec sr;
TTreeNode *mNode;
if(FindFirst(path+"*.*" ,faDirectory,sr)==0)
{
if(sr.Attr==faDirectory)
{
if(sr.Name!="."&&sr.Name!="..")
{
mNode=TreeView1-Items-AddChild(fNode,sr.Name);
mNode-ImageIndex=0;
mNode-SelectedIndex=4;
// AddDirectory(path+""+sr.Name,mNode);
}
}
}
while(FindNext(sr)==0)
{
if(sr.Attr==faDirectory)
{
if(sr.Name!="."&&sr.Name!="..")
{
mNode=TreeView1-Items-AddChild(fNode,sr.Name);
mNode-ImageIndex=0;
mNode-SelectedIndex=4;
// AddDirectory(path+""+sr.Name,mNode);
}
}
}
FindClose(sr);
}
//--------------------------------------------------------------------
void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange)
{
Screen-Cursor=crHourGlass;
TSearchRec sr;
TTreeNode *NodeTmp=Node;
AnsiString DirName,DirTmp;
DirName=Node-Text;
for(int i=Node-Level;i1;i--)
{
NodeTmp=NodeTmp-Parent;
DirTmp=NodeTmp-Text;
if(DirTmp.SubString(DirTmp.Length(),1)!="")
DirTmp+="";
DirName.Insert(DirTmp,0);
}
if(DirName.SubString(DirName.Length(),1)!="")
DirName+="";
for(int j=0;jNode-Count;j++)
{
if(Node-Item[j]-Count==0);
{
if(FindFirst(DirName+Node-Item[j]-Text+"*.*", faAnyFile, sr) == 0)
{
do
{
//Node-Item[j]-ImageIndex=5;
//Node-Item[j]-SelectedIndex=4;
if((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..")
{
Node-Item[j]-ImageIndex=0;
Node-Item[j]-SelectedIndex=4;
TreeView1-Items-AddChild(Node-Item[j],sr.Name);
}
}
while (FindNext(sr)==0);
FindClose(sr);
}
}
}
Screen-Cursor=crDefault;
}
来源:http://www.tulaoshi.com/n/20160219/1612442.html
看过《用TreeView浏览目录》的人还看了以下文章 更多>>