如何使用按钮验证用户对 VB.net 上多个复选框的选择？

Question

大家！

我正在学习 VB.net 语言，正在创建一个简单的应用程序，用户可以使用复选框选择最多 5 个数字，Windows 窗体应用程序上的按钮将检查用户是否标记了最多 5 个数字。否则，将出现一条对话框消息，返回用户最多只能检查 5 个号码，超出的选项将取消选中，保持 5 个选项处于选中状态。 在某些测试中，我可以使用以下代码设置 CheckBox1.CheckBoxChanged：

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) 处理 CheckBox1.CheckedChanged、CheckBox2.CheckedChanged、CheckBox3.CheckedChanged、CheckBox4.CheckedChanged、CheckBox5.CheckedChanged、CheckBox6.CheckedChanged

Dim check As CheckBox = TryCast(sender, Object)
If check.Checked Then
    counter += 1
Else
    counter -= 1
End If
If counter > 5 Then
    MessageBox.Show("You can only pick up to 5 numbers!")
    check.Checked = False
End If

结束子

这样程序就完美运行了。但是当我尝试在button1.click上实现时失败了。我什至尝试了其他一些方法，例如：

Private Sub Button1_Click(sender As Object, e As EventArgs) 处理 Button1.Click

For Each check As CheckBox In Me.grpMega.Controls.OfType(Of CheckBox)()
    If check.Checked Then
        counter += 1
    Else
        counter -= 1
    End If
    If counter > 5 Then
        MessageBox.Show("You can only pick up to 5 numbers!")
        check.Checked = False
    End If
Next

结束子

我一直在互联网上进行一些搜索以找到解决方案，但没有成功。如果有人能帮助我，我将非常感激。非常感谢您的关注。非常欢迎任何帮助。