以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于除此之外全部关闭  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74856)
--  作者：sara
--  发布时间：2015/9/21 11:54:00
--  关于除此之外全部关闭

Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
Dim iIndex As Integer = tab.SelectedIndex
For count As Integer = 0 To tab.TabPages.Count-1
    If count = iIndex Or count = 0 Then
    Else
        \'Forms(tab.SelectedPage.Name).Close
        tab.TabPages.Delete(count)
    End If
Next

代码执行老是有问题，我怀疑是删除过程中索引是变化的，我该如何写代码呢？除了用名称的方法
--  作者：sara
--  发布时间：2015/9/21 11:58:00
--  
大红袍老师这个解答一下啊
--  作者：大红袍
--  发布时间：2015/9/21 12:00:00
--  
Dim tab As WinForm.TabControl = e.form.Controls("TabControl1")
Dim iIndex As Integer = tab.SelectedIndex
For count As Integer = tab.TabPages.Count-1 To 0 Step -1
    If count = iIndex Then
    Else
        tab.TabPages.Delete(count)
    End If
Next