共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]目录树节点左移
1楼
hanxuntx 发表于：2011/12/6 0:37:00
此主题相关图片如下：1.png
此主题相关图片如下：2.png
如上图，昌平区左移后，位置排在了最后一个
这样不是很合理。
如果数据有上千行（比如全国行政区域），那么要拖动到最尾端找这个节点。
能否改进为左移后level属性改变，而index属性不变呢？
[此贴子已经被作者于2011-12-6 0:38:34编辑过]
2楼
RandyBoy 发表于：2011/12/6 9:13:00用代码去改进吧
3楼
狐狸爸爸 发表于：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编辑过]
4楼
RandyBoy 发表于：2011/12/6 10:01:00狐爸，应该还要考虑左移对象是否有子结点，要把子结点的子结子一起移动
5楼
狐狸爸爸 发表于：2011/12/6 10:30:00呵呵，那就等官方更新吧，给Insert在增加一个语法，直接插入节点：
Insert(nd,Index)
nd: 要插入的节点
Index: 要查入的位置
这样解决这个问题就简单了
[此贴子已经被作者于2011-12-6 10:31:22编辑过]
6楼
hanxuntx 发表于：2011/12/6 10:36:00狐爸俺们一直在等，官方计划什么时候更新啊
7楼
狐狸爸爸 发表于：2011/12/6 10:38:00下周末
共7 条记录, 每页显示 10 条, 页签:
[1]