以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TopicBar 导航栏  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33329)
--  作者：shanghaiduan
--  发布时间：2013/5/16 0:15:00
--  TopicBar 导航栏

各位，老师好：

    我想用TOPICBAR 做一个类似演示项目里的导航栏，但不用那么复杂，举例来说我新建一个新项目，默认的一共有三个表分别是表A、表B和表C，我只需要单击任务栏然后能跳转到表B或者表C就可以，请问这代码应该怎么写，谢谢！
--  作者：dycjj
--  发布时间：2013/5/16 0:52:00
--  

假定导航栏有三个页面，标题分别是页面1、页面2、页面3，希望选择这些页面时，能同时切换到对应的表A、表B、表C。

为此可以将SelectedIndexChanged事件代码设置为：

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "页面1"
         MainTable = Tables("表A")
    Case "页面2"
         MainTable = Tables("表B")
    Case "页面3"
         MainTable = Tables("表C")
End Select