VB里关于Checkbox的一个小问题.....

来源：百度知道 编辑：UC知道 时间：2024/05/31 23:01:09
现在呢 有7个checkbox 因为自己在玩VB..对有些语言不是很了解

我想呢就是7个checkbox 如果一个都没有选中的话 这个窗体里的一个label.enable = false 只要选择7个里面的任意1个checkbox 这个label.enable = true

这个逻辑呢是这样..但怎么表达呢? 是用if..then 好象不行把 只能对应一个checkbox 每个都用if..then 那选少于7个大于1个 就出现矛盾了.. 那应该怎么写呢??

希望有知道的朋友能告诉我.. 应该说这个问题很简单的把..

------偶很菜.. 比青菜还菜一点
我不知道是不是我问错了.. 我想的是 7个checkbox一个都没选的话..那个label从原来的enabel=true, 马上就变成false.. 然后 再选中任意一个的时候..又变回TRUE了

因为一开始复选框全部都是选上的

这样怎么改呢??

已看到了补充部分，其实下面代码就可以实现上述目标，或者你也可以把它放在timer控件内实时监视。

建议用控件数组check1(index=0-7),然后用下面代码判断即可。(当然，不管控件数组元素有多少，下面代码均适用)

Private Sub Check1_Click(Index As Integer)
Dim i As Integer
For i = Check1.LBound To Check1.UBound
If Check1(i).Value = 1 Then
Label1.Enabled = True
Exit For
End If
Next
If i = Check1.UBound + 1 Then Label1.Enabled = False
End Sub

If Check1.Value+Check2.Value+Check3.Value+Check4.Value+Check5.Value+Check6.Value+Check7.Value=0 Then Label1.Enable=False Else ..