list+复选框怎么操作啊

Question

ado+access
表1里有<=20个数据：
第一天
第二天
第三天

第二十天把他读取到list1里list1里style=1，就是每个选项前面多了个复选框
然后放一个text1
（问题1）比如输入第二天，那么第二天前面的复选框就选中
如果输入的东西LIST1里找不到就MSGBOX"找不到"
然后放一个按钮
（提问2）list1里的全部复选框复选框是否全部选中了，全部选中则msgbox“全部OK"
else
msgbox“还有‘哪一天'没有选中"（提问3）list1里的复选框不可以让鼠标点击选中，只能让代码来选中，就是TEXT里输入的东西找的到才选中状态3个问题。希望大家多多帮忙
THANKS

Answer 1

第三个问题我刚刚自己有了想法
list1.enable设置为不可用
按钮1_click
LIST1设置为可用状态

 搜索text1里的数值

list1.再设置为不可用这个想法可以么
不知道还有没有更好的办法
谢谢大家

Answer 2

使用listview控件，checkbox属性设置true

Answer 3

Private Sub Command1_Click()
    Dim i As Long
    
    For i = 0 To List1.ListCount - 1
        If List1.List(i) = Text1 Then
            List1.Selected(i) = True
            Exit Sub
        End If
    Next
    
    MsgBox "找不到"
End SubPrivate Sub Command2_Click()    Dim i As Long
    
    For i = 0 To List1.ListCount - 1
        If Not List1.Selected(i) Then
            MsgBox "还有'" & List1.List(i) & "'没有选中"
            Exit Sub
        End If
    Next    MsgBox "全部OK"
End Sub