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

一直点击按钮会无限制的添加页面，能否做个判断，当前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

主题：TabControl中的tabpages窗口切换