以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  tab控件问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57338)
--  作者：zhupengfei
--  发布时间：2014/9/23 10:49:00
--  tab控件问题
我定义了一个tab控件。
dim t as winform.tabcontrol= forms(“测试”).controls("页集")

我想，查找此tab中page .如果存在page名为测试页，就定位到此页面，如果不存在，就新增一个测试页的page.
如何写这段代码。
--  作者：有点甜
--  发布时间：2014/9/23 10:55:00
--  
Dim tab As winform.tabcontrol = forms("测试").controls("页集")
Dim tpg As WinForm.TabPage = tab.TabPages("测试")
If tpg Is Nothing Then
    tpg = tab.TabPages.Add("测试", "测试")
End If
tab.SelectedPage = tpg