Foxtable(狐表)用户栏目专家坐堂 → 请教目录树


  共有2846人关注过本帖树形打印复制链接

主题:请教目录树

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/6 10:35:00 [显示全部帖子]

1、keydown、KeyPressEdit事件 e.Cancel = false

 

2、明明就是可以保存成文件 http://www.foxtable.com/help/topics/2031.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/6 10:49:00 [显示全部帖子]

一样可以保存成文件,存为文件后,想怎么用都可以。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/6 11:03:00 [显示全部帖子]

保存,可以用任意后缀名,不影响。

 

可以保存在变量里,但那关闭项目就会丢失。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 9:37:00 [显示全部帖子]

以下是引用hbhb在2015/9/7 9:34:00的发言:
请问有目录树文件生成的目录树,如何指定从不同的层次接收数据?

 

不行。你生成目录树以后,循环每一个节点,往你原来的目录树里添加新的节点。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 9:53:00 [显示全部帖子]

1、先生目录树;

 

2、循环目录树每一个节点,判断level是否大于等于2,如果大于,就在一个新的目录树里加入节点;

 

方法二:循环每一个节点,判断level是否小于2,如果小于,就右移一列,把节点删除。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 10:15:00 [显示全部帖子]

你什么都要别人帮你做。

 

上传具体例子。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 10:37:00 [显示全部帖子]

mark 拷贝节点

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim ls As New List(Of Object)
ls.add(trv2)
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level >= 2 Then
        Dim idx As Integer = nd.level-2
        Dim nnd = ls(idx).Nodes.Add(nd.Name, nd.Text)
        If nd.Nodes.count > 0 Then
            If idx >= ls.count - 1 Then
                ls.add(nnd)
            Else
                ls(idx+1) = nnd
            End If
        End If
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 10:38:00 [显示全部帖子]

看15楼,先生成目录树,然后把节点拷贝到另一个目录树

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 10:56:00 [显示全部帖子]

放两个目录树,一个隐藏一个显示就行啊。

 

不会做,就上具体例子。


 回到顶部