| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口控件表单目录自动生成问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158264) |
| -- 作者：夜点蚊香 -- 发布时间：2020/11/13 13:26:00 -- 窗口控件表单目录自动生成问题 在窗口控件中 根据设计好的表单生成目录,然后点击并表单名并跳转到相应的表单. 如何实现.谢谢 看过教程有这个案例,自己找不到了,请大神指点一下.
|
| -- 作者：有点蓝 -- 发布时间：2020/11/13 13:52:00 -- 这个？http://www.foxtable.com/webhelp/topics/2906.htm |
| -- 作者：夜点蚊香 -- 发布时间：2020/11/13 14:15:00 -- 不是这个,控件打开后,自动获取当前所有表的表名称,然后点击表名称切换到表单. |
| -- 作者：有点蓝 -- 发布时间：2020/11/13 14:21:00 -- 没有印象。 如果要获取所有表名参考：http://www.foxtable.com/webhelp/topics/0365.htm
|
| -- 作者：夜点蚊香 -- 发布时间：2020/11/13 15:10:00 -- 问题解决了.谢谢 在窗口增加 navbar1控件, 在其中添加表单标题框.在表单标题框里添加TreeView控件, 点击表单标题框的时候 自动加载当前表单,生成目录树.
For Each dt As DataTable In DataTables Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode nd = Trv.Nodes.Add(dt.name) Next 控件里目录树出来了 设置点击跳转出了问题 TreeView控件的NodeMouseClick事件代码设置为： If e.Node.Level =
1
Then 现在点击目录树的表单名称,没有跳转.请帮忙看看 问题解决了,谢谢. 节点改成0就好了.抄的代码没有看仔细. If e.Node.Level = 0 [此贴子已经被作者于2020/11/13 15:26:29编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/13 15:38:00 -- Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each dt As DataTable In DataTables trv.Nodes.Add(dt.name) Next |