主题：点击页面选项按钮隐藏页面集合的页面

我在主界面的AfterLoad事件中写了：

'隐藏页面集合

For i As Integer = 7 To 10

    Dim pg(i) As WinForm.TabPage

    pg(i) = Forms("主界面").Controls("TabControl1").TabPages(i)

    pg(i).Visible = False

Next

然后在任务栏的TopicLinkClick事件中写上：

Select Case e.Link.Text

    Case "资产"

        Dim pg7 As WinForm.TabPage = Forms("主界面").Controls("TabControl1").TabPages(7)

        pg7.Visible = True

        Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

        tab.SelectedIndex = 7

    Case "负债"

        Dim pg8 As WinForm.TabPage = Forms("主界面").Controls("TabControl1").TabPages(8)

        pg8.Visible = True

        Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

        tab.SelectedIndex = 8

    Case "所有者权益"

        Dim pg9 As WinForm.TabPage = Forms("主界面").Controls("TabControl1").TabPages(9)

        pg9.Visible = True

        Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

        tab.SelectedIndex = 9

    Case "损益"

        Dim pg10 As WinForm.TabPage = Forms("主界面").Controls("TabControl1").TabPages(10)

        pg10.Visible = True

        Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

        tab.SelectedIndex = 10

End Select

我在SelectedIndexChanged事件写了：

TopicLinkClick事件中写上：

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

For i As Integer = 7 To 10

    tab.TabPages(i).Visible = False

Next

Select Case e.Link.Text

    Case "资产"

        Dim pg7 As WinForm.TabPage = tab.TabPages(7)

        pg7.Visible = True

        tab.SelectedPage = pg7

……