只选择复选框1时提示，选择了复选框1

只选择复选框2时提示，选择了复选框2

选择了1和2时，提示选择了复选框1、2

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

呵呵，任意多个也没有这么复杂吧。

Dim s As String
For Each x As WinForm.Control In e.Form.Controls
    If Typeof x Is WinForm.CheckBox Then
        Dim c As WinForm.CheckBox = x
        If c.Checked = True
            s = s & " " & c.text
        End If
    End If
Next
If s = "" Then
    MessageBox.Show("你没有做出选择")
Else
    MessageBox.Show("你选择了 " & s)
End If

老大

For Each x As WinForm.Control In e.Form.Controls
    If Typeof x Is WinForm.CheckBox Then
        Dim c As WinForm.CheckBox = x
        c.Checked = True
    End If
Next

For Each x As WinForm.Control In e.Form.Controls
    If Typeof x Is WinForm.CheckBox Then
        Dim c As WinForm.CheckBox = x
        c.Checked = False
    End If
Next