主题：目录树

参考：
 
http://help.foxtable.com/topics/1988.htm

 

道理一样的，你一楼的可以用停靠窗口或者SplitContainer控件实现，至于快捷菜单，foxtable也可以设计啊

使用的目录树和编辑的目录树，是没有这种分类的。

 

你愿意加入快捷菜单，也是可以的：

 

http://help.foxtable.com/topics/1326.htm

 

快捷菜单的设计和显示方法告诉你了，编辑目录树的方法帮助也有，你还是先自己尝试一下，遇到实在过不去的关卡再提问，到时我再帮你看看。

这是foxtable内部的左移目录树节点代码：

 

 

    With trv.BaseControl

            If .SelectedNode IsNot Nothing Then
                Dim nd As TreeNode = .SelectedNode
                If nd.Level = 0 Then Exit Sub
                Dim Nodes As Windows.Forms.TreeNodeCollection
                If nd.Parent.Level = 0 Then
                    Nodes = nd.TreeView.Nodes
                Else
                    Nodes = nd.Parent.Parent.Nodes
                End If
                nd.Parent.Nodes.Remove(nd)
                Nodes.Add(nd)
                .SelectedNode = nd
            End If
        End With

 

右移：

 

     With trv.BaseControl

            If .SelectedNode IsNot Nothing Then
                Dim nd As TreeNode = .SelectedNode
                If nd.Index = 0 Then Exit Sub
                Dim Nodes As Windows.Forms.TreeNodeCollection = nd.PrevNode.Nodes
                If nd.Parent IsNot Nothing Then
                    nd.Parent.Nodes.Remove(nd)
                Else
                    nd.TreeView.Nodes.Remove(nd)
                End If
                Nodes.Add(nd)
               .SelectedNode = nd
            End If
        End With

呵呵，不用搞懂它了，我下午给TreeNode来了两个MoveRight和MoveLeft方法

If Forms("窗口名").Opened Then

     '原来的代码

End If

 

注意原来的代码中e.Form要替换为Forms("窗口名")。

也许你没有升级吧：

 

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

点击浏览该文件:目录树管理.table

建议你抽时间再看两三遍帮助文件，也许开发效率和质量会更好，16楼这样的问题是很基础的，作为四尾狐不懂这个不应该的，通常只有没长尾巴的才有这种问题。

不可以的，只能自己编码逐个添加节点，才可以实现。