以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判断窗口页面集合中某页面是否存在  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28078)

--  作者:xzc1221
--  发布时间:2013/1/18 8:51:00
--  判断窗口页面集合中某页面是否存在
求,单击某一按钮,判断窗口页面集合中某页面是否存在,如果不存在,增加该页面。如果存在则选择该页面的代码。
--  作者:lin_hailun
--  发布时间:2013/1/18 9:41:00
--  
 代码如下。

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

Dim flag As Boolean = True
For Each c As WinForm.TabPage In tab.TabPages
    If c.Text = "标题" Then
        flag = False
    End If
Next

If flag = True Then
    tab.TabPages.Add("名称", "标题")
Else
    tab.SelectedPage = tab.TabPages("名称")
End If

--  作者:xzc1221
--  发布时间:2013/1/19 8:04:00
--  
谢谢