如何移动treeview得整个节点(包括子节点)--最好是比较简单得方法

shawls 2003-05-16 04:44:42
如何移动treeview得整个节点(包括子节点)--最好是比较简单得方法


如何移动treeview得整个节点(包括子节点)--最好是比较简单得方法

例如:

开始是
abcd
|---abcd1
|------abcd2
| |
| |--abcd201
|------abcd3
abce
|------abce1

修改后:
abcd
|---abcd1
|------abcd3
abce
|------abce1
|------abcd2
|
|--abcd201

希望是最快得方法-我知道用递归,先删除,然后慢慢添加,这个方法不好

分,好说,偶有得是

可以:
qq:9181729
mail:shawfile@163.net

...全文
39 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
shawls 2003-05-16
  • 打赏
  • 举报
回复
转贴过来了
shawls 2003-05-16
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Set TreeView1.Nodes("abcd2").Parent = TreeView1.Nodes("abce")
Set TreeView1.Nodes("abce1").Parent = TreeView1.Nodes("abce")
End Sub

Private Sub Form_Load()
With TreeView1.Nodes
.Add , , "abcd", "abcd"
.Add "abcd", tvwChild, "abcd1", "abcd1"
.Add "abcd", tvwChild, "abcd2", "abcd2"
.Add "abcd2", tvwChild, "abcd201", "abcd201"
.Add , , "abce", "abce"
.Add "abce", tvwChild, "abce1", "abce1"
End With
End Sub
shawls 2003-05-16
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Set TreeView1.Nodes("abcd2").Parent = TreeView1.Nodes("abce")
Set TreeView1.Nodes("abce1").Parent = TreeView1.Nodes("abce")
End Sub

Private Sub Form_Load()
With TreeView1.Nodes
.Add , , "abcd", "abcd"
.Add "abcd", tvwChild, "abcd1", "abcd1"
.Add "abcd", tvwChild, "abcd2", "abcd2"
.Add "abcd2", tvwChild, "abcd201", "abcd201"
.Add , , "abce", "abce"
.Add "abce", tvwChild, "abce1", "abce1"
End With
End Sub
junwhj 2003-05-16
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/1793/1793753.xml?temp=.5592157

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧