此主题相关图片如下：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: 要查入的位置

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