如何通过一个值判断复选框选了哪几个？

licho

如何通过一个值判断复选框选了哪几个？
如下图：我上将上面窗口显示的复选框选项的状态存到相应的数据表中。

记得以前学习VB时有个判别方法是通过数列：0，1，2，4，8，16，32，64....通过它们的和来判别的，但代码我还不会写，

求高手指点，最好贴上代码。先谢谢

licho

忽然想到：能否在复选框的数据来源通过表达式来实现？

licho

tmtony 发表于 2016-3-30 10:28
可以用  01010101 这样的格式来保存，或转成二进制（如果嫌麻烦，直接保存为字符串）
如果第一个选中就是1 ...

谢谢tmtony站长给的思路，嗯，确实比我想的简单多了，我试试

licho

删除了

折腾了好久，只解决了一点点：
Dim produce_model(0 To 6) As Boolean
Dim Bin_mark As String
Dim i As Integer

Bin_mark = "0001000" 'bin_mark必须是由0和1组成的7位数字符串,此参数将由数据表传递
For i = 0 To 6
produce_model(i) = CInt(Mid(Bin_mark, i + 1, 1)) '先截取字符串，Mid的第2个参数需从1开始的整数，再将其转换为整数
Next i
Me.Chk_251.Value = produce_model(0)
Me.Chk_701D.Value = produce_model(1)
Me.Chk_F3.Value = produce_model(2)
Me.Chk_F4.Value = produce_model(3)
Me.Chk_F5.Value = produce_model(4)
Me.Chk_oth.Value = produce_model(5)
Me.Chk_oft.Value = produce_model(6)

tmtony

可以用  01010101 这样的格式来保存，或转成二进制（如果嫌麻烦，直接保存为字符串）
如果第一个选中就是1  未选中就是0