树Tree

27 篇文章 0 订阅
8 篇文章 0 订阅

 果图:

 

aspx页面代码:

 

Code
                                    <asp:TreeView ID="tvFloder" runat="server" OnTreeNodeExpanded="tvFloder_TreeNodeExpanded">
                                    
</asp:TreeView>

 

cs代码:

 

Code

            TreeNode tn = new TreeNode();
            tn.Text 
= "项目" + daSystem.DISPLAYNAME + "的文件夹";
            
string systemaddress = daSystem.Dlladdress;
            
if (systemaddress.ToLower().LastIndexOf("//bin"> 0)
                systemaddress 
= systemaddress.Substring(0, systemaddress.ToLower().LastIndexOf("//bin"));

            TreeNode subtn 
= new TreeNode();
            subtn.Text 
= systemaddress.Substring(systemaddress.LastIndexOf("//"+ 1).Replace("//""/");

            subtn.Value 
= systemaddress;

            TreeNode tnThird 
= new TreeNode();
            tnThird.Text 
= "临时节点,只为显示+号";

            subtn.ChildNodes.Add(tnThird);

            tn.ChildNodes.Add(subtn);

            tvFloder.Nodes.Add(tn);

Code
        /// <summary>
        
/// 填充子文件夹
        
/// </summary>
        protected void tvFloder_TreeNodeExpanded(object sender, TreeNodeEventArgs e)
        {
            
if (e.Node.Depth == 0)
                
return;

            
if (e.Node.ChildNodes[0].Value == "临时节点,只为显示+号")
                e.Node.ChildNodes.Clear();

            getDirectories(e.Node.Value, e.Node);
        }


Code
        /// <summary>
        
/// 循环遍历获得某一目录下的所有文件信息
        
/// </summary>
        
/// <param name="path">目录名</param>
        
/// <param name="tn">树节点</param>
        private static void getDirectories(string path, TreeNode tn)
        {
            
if (string.IsNullOrEmpty(path))
                
return;

            
if (!Directory.Exists(path))
                
return;

            
string[] directories = Directory.GetDirectories(path);

            
//先遍历这个目录下的文件夹
            foreach (string dir in directories)
            {
                TreeNode subtn 
= new TreeNode();
                subtn.Text 
= dir.Substring(dir.LastIndexOf("//"+ 1).Replace("//""/");
                subtn.Expanded 
= false;
                subtn.NavigateUrl 
= "javascript:ChooseFolder('" + dir.Substring(3, dir.Length - 3).Replace("//""/"+ "')";
                
                getDirectories(dir, subtn);
                tn.ChildNodes.Add(subtn);
            }
        }
 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
//显示任意一个目录的文件到TReeview中 unit uTreeViewDemo; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls, FileCtrl; const  SELDIRHELP = 1000; type  TForm1 = class(TForm)   TreeView1: TTreeView;   Button1: TButton;   procedure Button1Click(Sender: TObject);  private   { Private declarations }  public   procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;              IncludeFiles: Boolean);   { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;                 IncludeFiles: Boolean); var  SearchRec: TSearchRec;  ItemTemp: TTreeNode; begin  TreeView1.Items.BeginUpdate;  if Directory[Length(Directory)] '\' then   Directory := Directory + '\';  if FindFirst(Directory + '*.*' , faDirectory, SearchRec) = 0 then  begin   repeat    if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] '.') then    begin     if (SearchRec.Attr and faDirectory > 0) then     Item := Tree.Items.AddChild(Item, SearchRec.Name);     ItemTemp := Item.Parent;     GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);     Item := ItemTemp;    end    else    if IncludeFiles then    if SearchRec.Name[1] '.' then     Tree.Items.AddChild(Item, SearchRec.Name);   until FindNext(SearchRec) 0;   FindClose(SearchRec);   TreeView1.Items.EndUpdate;  end; end; procedure TForm1.Button1Click(Sender: TObject); var  strOpenDir: string; begin  if SelectDirectory(strOpenDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then  try   GetDirectories(TreeView1, strOpenDir, nil, True);  except   ShowMessage('错误信息');  end; end; end.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值