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

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

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

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

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

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

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

附项目：

  窗口：首页

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

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

项目已上传。另外说明。

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

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

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

增加根节点

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

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

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)