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

请教一个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 的窗口，这样编辑文件会比较简单。

 

          我这么想是否可以？