主题：[求助]怎么像系统里“窗口”界面里的目录树，点击向上可以进入根目录

 

你有看那个例子吗？

看了阿'二级的节点变成一级节点了？？

 无语

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:treeview目录树的连续添加.foxdb

向下的按钮实现的效果是可以的。因为下移最后一行采用：左，下，右还是在原来的位置。上移则不同，最上面一行时：左，上，就没有根节点了，就移不到右了。

哎呀 终于弄好了，谢谢 ，睡觉

加多一个判断即可。

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    If nd.Level = 1 AndAlso nd.name = nd.ParentNode.Nodes(0).name AndAlso nd.ParentNode.Name <> tr.Nodes(0).Name Then
        nd.MoveLeft
        nd.MoveUp
        nd.MoveRight
    Else
        nd.MoveUp()
    End If
End If
tr.Select