主题：关于复选框的选择问题

这个我知道,我要的是如果不是全部被选中,比如当用户只选择"已录入,已审核、已失效、已结案"中的任何一个或几个，在确定按钮中如何根据用户的选择生成一个字符串的条件呢？

窗口中的CheckedChanged事件

代码如下:

Dim nm As String = e.Sender.Name

Select Case nm
    Case "CheckBox1"
        If e.Sender.Checked= True Then
            e.Form.Controls("CheckBox2").Checked = True
            e.Form.Controls("CheckBox3").Checked = True
            e.Form.Controls("CheckBox4").Checked = True
            e.Form.Controls("CheckBox5").Checked = True
            Vars("ddzt") = "('未审核','已审核','失效','结案')"
        Else
            Return
        End If
End Select

 

我现在想,如何根据除了"全部"外其他几个选择框生成条件传给变量呢?

 请问如何才能做到遍历(未审核,已审核,失效,结案)这几个复选框,并将他们选中状态的生成一个字符串,例如,如果选择了(未审核,已审核)两个,那么字符串变量= "('未审核','已审核')"

If  e.Sender.Checked = True  Then

    For Each c As WinForm.Control In e.Form.Controls

        If Typeof c Is WinForm.CheckBox Then '判断控件是否是文本框

            Dim t As WinForm.CheckBox = c '使用特定类型的变量引用控件

            MessageBox.show(t.Name)

        End If

    Next

End If