主题：关于用独立窗口向TabControl中添加页面

 

http://www.foxtable.com/help/topics/0830.htm

 

就是看了帮助还是不会用，直接Delete，提示不存在改函数

e.Form.Controls("TabControl1").TabPages.Delete("Page1")

如果我不写关闭独立窗口那一句会怎么样？因为现在是这个情况，我有时候想关闭除选中的其他的全部关闭，但是又不知道窗口的名字啊

 

傻啊，你可以循环遍历所有的TabPage啊。如

 

Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
For i As Integer = tab.TabPages.Count - 1 To 0 Step -1
    If i = tab.SelectedIndex Then
        Dim p As WinForm.TabPage = tab.TabPages(i)
        'tab.TabPages.Delete(i)
        msgbox(p.name)
    End If
Next