主题：任务栏

如例子中窗口1，我希望通过单击任务栏中标签实现切换页面，这样的代码在窗口全局代码中怎么写？如下代码不能实现目标

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case Forms("窗口1").Controls("NavBar1").NavPages
    Case "任务"
        tab.SelectedIndex = 2
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目10.foxdb

没有办法通过在全局代码中写代码，对吗？

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "合同明细"
        tab.SelectedIndex = 0
    Case "原始合同"
        tab.SelectedIndex = 1
    Case "合同总表"
        tab.SelectedIndex = 2
    Case "合同合并"
        tab.SelectedIndex = 3
    Case "合同分表"
        tab.SelectedIndex = 4
    Case "计算合同"
        tab.SelectedIndex = 5
    Case "合同转换"
        tab.SelectedIndex = 6
End Select

以上代码也不行

怎么修改？

可以了