以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导航栏和页面集合关联的代码怎么写  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21181)
--  作者：kemengyue
--  发布时间：2012/7/4 16:50:00
--  导航栏和页面集合关联的代码怎么写

请问导航栏和页面集合关联的代码怎么写呢？这个可以参考哪里？

所谓关联就是点击导航栏可以在页面集合里各个页面切换。
--  作者：狐狸爸爸
--  发布时间：2012/7/4 17:33:00
--  

看看这个：

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

 

变通一下就行：

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "页面1"
         tab.SelectedIndex = 0
    Case "页面2"
         tab.SelectedIndex = 1
    Case "页面3"
         tab.SelectedIndex = 2
End Select