主题：页面切换的问题

AfterLoad

生成窗口后执行，通常在此对窗口和控件进行初始化设置。

With Forms("窗口1").Controls("TabControl1")

    For n As Integer =1 To .TabPages.count-1

        .TabPages(n).Visible = False

    Next

End With

下一步

With Forms("窗口1").Controls("TabControl1")

    Dim n As Integer = .SelectedIndex

    If n =.TabPages.count-1 Then

        Forms("窗口1").close

    Else

        .TabPages(n).Visible = False

        .SelectedIndex =n+1

        .TabPages(n+1).Visible = True

    End If

End With