主题：导航栏 的页面指向问题

请教一个navbar（导航栏）和tapcontrol( 页面集合）使用的问题。

 

此主题相关图片如下：5.jpg

我设计了一个窗口，用导航栏上页面 指向 不同的几个页面集合，我的代码是

 

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "订单明细"
        e.Form.Controls("mtab").Visible = False  ‘(mtab,ctab,vtab,stab,ftab,otab 都是页面集合，我改了显示名称）
        e.Form.Controls("ctab").Visible = False
        e.Form.Controls("vtab").Visible = False
        e.Form.Controls("stab").Visible = False
        e.Form.Controls("ftab").Visible = False
        e.Form.Controls("otab").Visible = True
    Case "产品"
        e.Form.Controls("otab").Visible = False
        e.Form.Controls("ftab").Visible = False
        e.Form.Controls("ctab").Visible = False
        e.Form.Controls("vtab").Visible = False
        e.Form.Controls("stab").Visible = False
        e.Form.Controls("mtab").Visible = True     
    Case "外商"
        e.Form.Controls("mtab").Visible = False
        e.Form.Controls("ftab").Visible = False
        e.Form.Controls("otab").Visible = False
        e.Form.Controls("vtab").Visible = False
        e.Form.Controls("stab").Visible = False
        e.Form.Controls("ctab").Visible = True
    Case "供货商"
        e.Form.Controls("mtab").Visible = False
        e.Form.Controls("ftab").Visible = False
        e.Form.Controls("otab").Visible = False
        e.Form.Controls("ctab").Visible = False
        e.Form.Controls("stab").Visible = False
        e.Form.Controls("vtab").Visible = True
    Case "货运订舱"
        e.Form.Controls("mtab").Visible = False
        e.Form.Controls("ftab").Visible = False
        e.Form.Controls("otab").Visible = False
        e.Form.Controls("ctab").Visible = False
        e.Form.Controls("vtab").Visible = False
        e.Form.Controls("stab").Visible = True
    Case "财务处理"
        e.Form.Controls("mtab").Visible = False
        e.Form.Controls("stab").Visible = False
        e.Form.Controls("otab").Visible = False
        e.Form.Controls("ctab").Visible = False
        e.Form.Controls("vtab").Visible = False
        e.Form.Controls("ftab").Visible = True
End Select

 

我自己感觉很麻烦，有没有什么办法可以简化。

 

另外： 我不知道是否可以将以上的TAPCONTROL 做成一个一个窗口（不和导航栏在主窗口里），用控件或者代码在主窗口中相应位置处

          导入这些TAPCONTROL 的窗口，这样编辑文件会比较简单。

 

          我这么想是否可以？

请教如何切换呢？

恳请高手解答。

谢谢各位。

 

我还有一个问题：

 

另外： 我不知道是否可以将以上的TAPCONTROL 做成一个一个窗口（不和导航栏在主窗口里），用控件或者代码在主窗口中相应位置处

导入这些TAPCONTROL 的窗口，这样编辑文件会比较简单。

我这么想是否可以？

非常感谢。

狐爸，我运行你的代码，还是有些问题。

 

我的设计是：将导航栏指向的部分（以下橘色部分），可否另做几个单独的窗口对应导航栏的几个选择BUTTON，用代码指引到主窗口的橘色部分里。

 

1.)橘色部分：只是在主窗口的一部分中；

此主题相关图片如下：6.jpg

 

2.)单独的窗口（和主窗口分开），分别对应导航栏的选择键（例如：订单明细）

 

此主题相关图片如下：7.jpg

 

可否做到以上要求呢？

 

如果你的代码是可以体现以上的设计要求，请问这个代码应该体现在 导航栏选择键 的事件 SELECTINDEXCHANGED?

不好意思，我是初学者，很多地方请教。

见谅，哪位高手可以帮忙解决一下我的提问呢。

谢谢回复，我需要的结果是窗口引用，你的代码好像没有办法解决我的问题。

对不起，我晚上发出。

CZY， 谢谢。

 

请查附件：

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

点击浏览该文件:test 120904.table

 

在这个附件里，你可以看到3个窗口，一个main table. 一个"otab-win", 一个"mtab-win".

 

我的想法是： maintable 中的NAVBAR 中的按钮“订单详细”“产品” 可以 引用 “otab-win" "mtab-win" 窗口到maintable 窗口的黄色区域；

 

备注： ”订单详细“ 按钮对应 otab-win 窗口；

          ”产品“ 按钮 mtab-win 窗口。