主题：导航栏和页面集合关联的代码怎么写

看看这个：

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