TabControl中的tabpages窗口切换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

直接上传例子，例子中有三个按钮控件，前两个按钮报错，最后一个按钮没有报错，也能实现。

但是，我的tabpages子页面有很多，不可能用0，1，2，3....等等来切换，我想要实现的功能是，0=页面的名称

第一个和第二个的报错图片

此主题相关图片如下：1.png

第三个为正常图片

此主题相关图片如下：3.png

上传例子望解答！其中如果代码中直接写Form("窗口名").open 则会闪屏修改为 Form（“窗口名”）.open(-1000,-1500) 则不会闪屏

下载信息 [文件大小：下载次数： ]
点击浏览该文件:tabcontrol中的tabpages窗口切换.table

一直点击按钮会无限制的添加页面，能否做个判断，当前tabcontrol控件中已存在要添加的页面则不执行代码并切换到当前页面。

红色代码这里就不执行了。没辙了，本来还想添加 Exit For和Continue For 来做终止以及循环。就是这里卡壳了！请指教

Dim tab1 As object = e.Form.Controls("TabControl1").basecontrol '定义主独立窗口tbacontrol1控件为tab1

For Each pg As WinForm.TabPage In tab1.TabPages '遍历tab1控件tabpages页面集合中的所有tabpage(单独页面)

Forms("窗口2").Open(-1000,-2000) '打开下面要用到的tabcontrol2控件的窗口

Dim tab2 As object = Forms("窗口2").Controls("TabControl2").basecontrol '定义独立窗口2中的tbacontrol1控件为tab2

For Each pg1 As WinForm.TabPage In tab2.TabPages '遍历tab2控件tabpages页面集合中的所有tabpage(单独页面)

If pg.text = "人员管理" <> pg1.text = "" Then '判断pg页面标题为人员管理不等于 pg1中所有页面中的标题

Dim pg3 As WinForm.TabPage

pg3 = Forms("窗口2").Controls("TabControl2").TabPages(0)

Dim p =tab1.Tabpages.Add(pg3)

tab1.SelectedIndex = p

Forms("窗口2").Close

End If

Dim tab1 As object = e.Form.Controls("TabControl1").basecontrol
Forms("窗口2").Open(-1000,-2000)
Dim tab2 As object = Forms("窗口2").Controls("TabControl2").basecontrol
Dim flag As Boolean = False
For Each pg1 As WinForm.TabPage In tab1.TabPages
    If pg1.tag = "窗口2" & tab2.tabpages(0).text
        flag = True
        tab1.SelectedTab = pg1
        Exit For
    End If
Next
If flag = False
    Dim p = tab1.Tabpages.Add(tab2.TabPages(0))
    tab1.SelectedIndex = p
    tab1.SelectedTab.Tag = "窗口2" & tab1.SelectedTab.text
End If
Forms("窗口2").Close

主题：TabControl中的tabpages窗口切换