主题：1导航栏能与任务栏绑定？2、导航栏里的目录树能与相对应绑定表？

各位大师，新手制作碰到几个问题，向大师请教。还望多多指教不胜感激。（在论坛搜索不到相关信息只能发问了，手册也没有看到，不知有没有看落掉的。）

1、导航栏能与任务栏绑定？例导航栏1对应任务栏1，完成这个主要是为了完成如产品管理与报价管理任务操作的不一；
2、导航栏里的目录树能与相对应绑定表？例导航栏里的目录树与表里的目录树相同步，最后做一个任务栏，添加/删除 产品或分类这样可以实现？

此主题相关图片如下：导航.png

3、制作的窗口或是显示页面不知不能满屏或是显示（左边空的一段，但在设计窗口时是满屏和正常的，没有发现其它控件等）。见图

此主题相关图片如下：导航2.png

4、另外窗口预览有报过这样的错（只能结束任务），没看明白。顺便帮分析一下。谢谢

 
此主题相关图片如下：报错.png

附项目：

  窗口：首页

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

点击浏览该文件:产品报价设计.zip

 好抽象啊，楼主，上传项目吧。

已上传，还请多指教。先谢过了

项目已上传。另外说明。

问题3、4应是解决了，3的问题找了一下应是表格数据备注栏自动显示档掉了桌面空间。但窗口好像只能手动调整大小，没办法根据实际自动调整（这个哪个朋友有试过？）。

4原窗口加载一些没有数据 表格（原被删除，可能是找不到相对应文件）；

 第一个问题，可以通过命名规范来解决的。

 比如，你导航页的名称叫 产品管理，那你任务栏的名称就叫 产品管理

 然后，点击导航页的时候，写代码把 任务栏名字叫改名字的控件显示出来。

 参考 http://www.foxtable.com/help/topics/0875.htm

-------------------------------------------------------

 第二个问题，可以参考一下帮助文档。有现成的例子。

 http://www.foxtable.com/help/topics/2474.htm

-----------------------------------------------------------------

 第三个问题，可以用下面的代码实现自动缩放功能。放在AfterLoad事件里

For Each c As Winform.Control In e.Form.Controls
    c.Left = c.Left * (SysInfo.ScreenWidth / e.Form.Width)
    c.Top = c.Top * (SysInfo.ScreenHeight / e.Form.Height)
    c.Width = c.Width * (SysInfo.ScreenWidth / e.Form.Width)
    c.Height = c.Height * (SysInfo.ScreenHeight / e.Form.Height)
Next

----------------------------------------------------

 第四个问题，是报错问题？不知道什么原因。楼主把项目重做一下吧，比较乱！

 完毕。希望帮到你。

您好，首先谢谢您的回复，希望和动力提升不少；经过您的指导基本解决第二个增加节点问题（另说明以备其它朋友需要使用：如果不将节点内容添加到数据表的要自行修改代码，我汇总了一下：

增加根节点

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()

增加子节点

Dim tr As WinForm.TreeView

Dim nd As WinForm.TreeNode

tr = e.Form.Controls("TreeView1")

nd = tr.SelectedNode

        nd = nd.Nodes.Add("新节点")

        tr.SelectedNode = nd

        tr.Select()

        tr.BeginEdit()

（不过使用代码时有一个问题就是增加子节点问题，这个有待解决：打开窗口第一次点添加子节点就会报错，但如先选中任意节点或是添加根节点后就不会出现这种情况），另外两个问题经测试有以下疑问及问题，还请再帮看看是不是操作有误，另附项目。

）

重命名

  Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView1")
tr.Select()
tr.BeginEdit()

删除

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode = tr.SelectedNode

    nd.Delete()

tr.Select()

其它

原第一问题，使用SelectedPage

疑问：现在导用导航栏，配合作务栏使用。导航栏有case0~4，但看SelectedPage 代码是写成？经测试无法实现点击产品管理后右上任务栏为产品信息管理的模块，点击报价管理后 右上任务栏为报价信息管理模块。

Select  Case e.Sender.SelectedIndex 
  Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Bar.SelectedPage = Bar.NavPages("产品管理")
原第三问题：使用自动缩放功能，是指在窗口？经测试无反应，另行自行修改高度后，导航栏位置错位。

 

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

点击浏览该文件:报价系统2.rar

 直接给你上例子，楼主耐心啃一下。

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

点击浏览该文件:报价系统.zip

很感谢谢你的支持，我试了几次无果，复制到我的表内，试着改了一下代码及名称，但还是看不是很明白代码能解释一下？（我按手册查代码和技术群咨询、论坛查类似的代码或说明，但目前无果，还请再费心说明下）谢谢了

Dim name As String = e.Sender.SelectedPage.Name
Dim dh As WinForm.TopicBar = e.Form.Controls("TopicBar")
Dim currPage As WinForm.TopicPage = dh.Pages(name)
Dim newPage As WinForm.TopicPage = dh.Pages.Insert(currPage.Name, currPage.Text, 0)
For Each link As WinForm.TopicLink In currPage.Links
    newPage.Links.Add(link.Name, link.Text)
Next
dh.pages.Remove(currPage)

 关键点是对任务栏的命名和导航栏的命名……把它们一致起来，上面的代码才会有效果的。