以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  遍历tabcontrol,删除tabpage问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24032)

--  作者:sutingrong
--  发布时间:2012/9/27 17:28:00
--  遍历tabcontrol,删除tabpage问题
 我遍历删除tabcontrol 的选项页面 总是删除不完。代码如下:

Dim tab As WinForm.TabControl = e.Form.Controls("tb")
For Each tg As WinForm.TabPage In tab.TabPages   
    msgbox(tc)
    tab.TabPages.Delete(tg.name)     
Next

比如说有p1,p2,p3,p4,p5,p6 这几个选项页面,执行代码后,只删除了p1,p3,p5.很奇怪,这是为什么呢

--  作者:狐狸爸爸
--  发布时间:2012/9/27 17:35:00
--  
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
For i As Integer = tab.TabPages.count - 1 To 0 Step -1
   tab.TabPages.Delete(i)
Next

--  作者:狐狸爸爸
--  发布时间:2012/9/27 17:36:00
--  

理由嘛,可以看看这里:

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

 


--  作者:sutingrong
--  发布时间:2012/9/27 17:39:00
--  
 好的,谢谢狐狸爸爸,图片点击可在新窗口打开查看