- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- for next 问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110008)
-- 发布时间：2017/11/24 11:33:00
-- for next 问题
CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15
需要用for next 循环 CheckBox 1--5 和15, 6到14不能循环
Dim f As Boolean=False
For i As Integer= 1 to 15
f=f Or e.Form.Controls("CheckBox" & i ).checked
Next
以上错的,请问 For i As Integer= 1 to 15 这里我该怎么写
-- 发布时间：2017/11/24 12:12:00
--
dim str() as string = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"}
For i As Integer= 0 to str.length - 1
f=f Or e.Form.Controls(str(i) ).checked
Next
-- 发布时间：2017/11/24 14:20:00
--
Case "CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"
Dim n As Integer= CInt( e.Sender.Name.Replace("CheckBox","") )
e.Form.Controls("TabControl1").TabPages( n-1 ).Visible = e.Form.Controls("CheckBox" & n ).checked
case 后面这两句该怎么改呢?试了下还是不会
Dim cn() As String = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"}
Dim n As Integer = cint(e.Sender.Name.Replace(cn( ? )))
此主题相关图片如下：1.png
-- 发布时间：2017/11/24 15:39:00
--
没看懂你想干什么
Dim cn() As String = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"}
For each c as String in cn
Dim n As Integer = cint(c.Replace("CheckBox", ""))
msgbox(n)