Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]select case


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

主题：[求助]select case
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]select case  发帖心情 Post By：2015/12/23 13:30:00 [只看该作者]

老师，
下面标注绿色的部分，同步怎么写
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case tab.SelectedIndex
    Case 0
        MessageBox.Show(tab.SelectedIndex)
    Case 1,2
        If e.Sender.Select=False Then
            e.Sender.Select
            For Each ob As object In tab.TabPages()     希望只循环1,2页面中的部分
                MessageBox.Show(ob.Name)
            Next
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/23 14:19:00 [只看该作者]

For i as integer = 1 to 2     希望只循环1,2页面中的部分
    MessageBox.Show(tab.TabPages(i).Name)
Next
[此贴子已经被作者于2015/12/23 14:18:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/23 15:44:00 [只看该作者]

哦 老师 这样不能遍历 

Case 2,3,4,5
            For i As Integer = 2 To 5     '希望只循环2-5页面中的部分所有控件
                For Each bt As object In tab.TabPages(i)
[此贴子已经被作者于2015/12/23 15:44:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/23 15:45:00 [只看该作者]

 For Each bt As object In tab.TabPages(i).Children

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询