Foxtable(狐表)用户栏目专家坐堂 → 遍历tabcontrol,删除tabpage问题


  共有9137人关注过本帖树形打印复制链接

主题:遍历tabcontrol,删除tabpage问题

帅哥哟,离线,有人找我吗?
sutingrong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:1102 威望:0 精华:0 注册:2011/10/25 10:56:00
遍历tabcontrol,删除tabpage问题  发帖心情 Post By:2012/9/27 17:28:00 [只看该作者]

 我遍历删除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.很奇怪,这是为什么呢

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/9/27 17:36:00 [只看该作者]

理由嘛,可以看看这里:

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
sutingrong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:1102 威望:0 精华:0 注册:2011/10/25 10:56:00
  发帖心情 Post By:2012/9/27 17:39:00 [只看该作者]

 好的,谢谢狐狸爸爸,图片点击可在新窗口打开查看

 回到顶部