以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树节点左移  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14887)

--  作者:hanxuntx
--  发布时间:2011/12/6 0:37:00
--  [求助]目录树节点左移


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 

如上图,昌平区左移后,位置排在了最后一个

这样不是很合理。

如果数据有上千行(比如全国行政区域),那么要拖动到最尾端找这个节点。

能否改进为左移后level属性改变,而index属性不变呢?


 

[此贴子已经被作者于2011-12-6 0:38:34编辑过]

--  作者:RandyBoy
--  发布时间:2011/12/6 9:13:00
--  
用代码去改进吧
--  作者:狐狸爸爸
--  发布时间:2011/12/6 9:45:00
--  

在官方改变之前,你可以自己设计一个左移按钮:

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim pd As WinForm.TreeNode = nd.ParentNode
    If pd IsNot Nothing Then
        Dim idx As Integer = pd.Index + 1
        nd.Delete
        If pd.ParentNode IsNot Nothing Then
            nd = pd.ParentNode.Nodes.Insert(nd.name,nd.text,idx)
        Else
           nd = tr.Nodes.Insert(nd.name,nd.text,idx)
        End If
        tr.SelectedNode = nd
    End If
End If
tr.Select

[此贴子已经被作者于2011-12-6 9:46:35编辑过]

--  作者:RandyBoy
--  发布时间:2011/12/6 10:01:00
--  
狐爸,应该还要考虑左移对象是否有子结点,要把子结点的子结子一起移动
--  作者:狐狸爸爸
--  发布时间:2011/12/6 10:30:00
--  

呵呵,那就等官方更新吧,给Insert在增加一个语法,直接插入节点:

 

Insert(nd,Index)

 

nd: 要插入的节点

Index: 要查入的位置

 

这样解决这个问题就简单了

[此贴子已经被作者于2011-12-6 10:31:22编辑过]

--  作者:hanxuntx
--  发布时间:2011/12/6 10:36:00
--  
狐爸俺们一直在等,官方计划什么时候更新啊
--  作者:狐狸爸爸
--  发布时间:2011/12/6 10:38:00
--  
下周末