注册 登录
编程论坛 VB6论坛

请教关于多个复选框根据内容使复选框的value属性成为被选定:?

sqbcai 发布于 2014-02-22 14:19, 406 次点击
例如设窗体上有一个text 控件,6个check(0)到check(5)控件
  现在text中输入ABCDEF中任意一个字母或多个字母,使check控件状态为点击
     例如输入A,则check(0).value =1 ,其他check的value 为0
         输入AC,则check(0)和check(2).value =1 ,其他check的value 为0
          输入BCF,则check(1)和check(2)和check(5)的value =1 ,其他check的value 为0
            .....

             等等,即在ABCDEF中根据组合赋值check(0-5)的value值

             比较乱,请高手给点思路......
2 回复
#2
lowxiong2014-02-22 16:03
这个太简单了,在text1的change事件添加如下代码(字母可大写可小写):
Private Sub Text1_Change()
  Dim a As String, i As Integer, j As Integer
  a = UCase(Text1)
  For i = 0 To 5
    Check1(i).Value = 0
  Next
  For i = 1 To Len(a)
    j = Asc(Mid(a, i, 1)) - Asc("A")
    If j >= 0 And j < 6 Then Check1(j).Value = 1
  Next
End Sub

#3
sqbcai2014-02-22 20:08
准备写考试系统的多选题,想了很长时间
非常感谢
省了用冗长的判断
1