主题：[求助]还是关于窗口问题——已解决

参考：

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

稍微变通下：

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