主题：[求助]checkbox返回值问题

 把checkbox放在一个容器里面，这样可以遍历所有控件，方便计算。

 也可以把checkbox的名字设置为统一的，如 cbx_1、cbx_2、cbx_3，这样也可以方便计算。

 参考代码

Text指的是你【标题】的值。

如果你标题不是具体的数值，你也可以把值写在名称里，如 cbx_1_109 红色的109就代表这个控件的值

命名为 cbx_111、cbx_222、cbx_333

Dim sum As Double = 0
For Each c As object In e.Form.controls
    If c.name Like "cbx_*" Then
        Dim cbx As WinForm.CheckBox = c
        If cbx.Checked Then
            sum += val(cbx.name.split("_")(1))
        End If
    End If
Next
msgbox(sum)

只要命名规范即可，不需要在一个容器里（当然最好在一个容器里），这样就不需要循环所有的控件

For Each c As object In e.Form.controls("panel1").Children