请教：遍历窗口checkbox控件问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：遍历窗口checkbox控件问题

共有3948人关注过本帖树形打印复制链接主题：请教：遍历窗口checkbox控件问题

bahamute

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00

请教：遍历窗口checkbox控件问题 发帖心情

Post By：2014/4/11 22:25:00 [只看该作者]

窗口有10个checkbox控件，分别命名为chb1,chb2直到chb10,想遍历一遍，并将打钩控件名称写入str

Dim str As String

str=""

For i As Integer=1 To 10

Dim chb As WinForm.CheckBox = e.Form.Controls("chb(i)")

If chb(i).checked=True Then

str=str & ","& chb(i).Text

End If

结果编译失败

编译错误:类“WinForm.CheckBox”没有默认属性，因此无法被索引。

错误代码：If chb(i).checked=True Then

请大神帮忙看看，莫非控件不能如此遍历吗？

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2014/4/11 22:45:00 [只看该作者]

Dim chb As WinForm.CheckBox

Dim str As String

str=""

For i As Integer=1 To 10

chb= e.Form.Controls("chb“ & i)

If chb.checked=True Then

str=str & "," & chb.Text

End If

bahamute

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00

Post By：2014/4/11 22:52:00 [只看该作者]

谢谢啦，终于解决！

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/12 8:28:00 [只看该作者]

既然是按编号来的，名称默认就行了：

Dim str As String
For i As Integer = 1 To 10
    If e.Form.Controls("CheckBox" & i).Checked Then
        str + = "," & e.Form.Controls("CheckBox" & i).Text
    End If
Next
MessageBox.Show(str)

下一主题 >> << 上一主题

主题：请教：遍历窗口checkbox控件问题