主题：[求助]目录树节点左移

此主题相关图片如下：1.png

 

此主题相关图片如下：2.png

 

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

这样不是很合理。

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

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

 

用代码去改进吧

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

 

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

狐爸，应该还要考虑左移对象是否有子结点，要把子结点的子结子一起移动

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

 

Insert(nd,Index)

 

nd: 要插入的节点

Index: 要查入的位置

 

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

狐爸俺们一直在等，官方计划什么时候更新啊

下周末