VB Visual Studio开发中点击某CheckBox时如何将其余CheckBox设为未选中

需求背景 #

Visual Studio中使用VB语言开发，存在3个CheckBox控件，其中1个默认选中。要求选中任意一个CheckBox为True时，其余所有CheckBox自动设为未选中状态。

原始代码问题排查 #

用户原有未生效代码如下：

If CheckBox1.Checked = True Then
ChecBox2.checked= False
CheckBox3.checked = False
End If

存在三个核心问题：

• 控件名拼写错误：ChecBox2 拼写错误，正确应为CheckBox2，拼写不匹配会导致代码逻辑不执行
• 逻辑覆盖不全：仅处理了CheckBox1被选中的场景，未覆盖CheckBox2、CheckBox3被选中的情况
• 无触发绑定：代码未绑定到CheckBox的状态变更事件，无法在选中操作后自动执行

正确实现方案 #

步骤1：绑定事件 #

选中窗体上的3个CheckBox控件，在属性窗口的事件面板中找到CheckedChanged事件，统一绑定到同一个处理方法（可命名为CheckBox_CheckedChanged）。

步骤2：编写事件处理代码 #

Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
    ' 获取当前触发事件的CheckBox控件
    Dim currentBox As CheckBox = CType(sender, CheckBox)
    ' 仅当当前控件被选中时，执行互斥逻辑
    If currentBox.Checked Then
        CheckBox1.Checked = (currentBox Is CheckBox1)
        CheckBox2.Checked = (currentBox Is CheckBox2)
        CheckBox3.Checked = (currentBox Is CheckBox3)
    End If
End Sub

补充说明 #

如果后续需要新增更多互斥的CheckBox，仅需在方法声明的Handles后追加对应控件的CheckedChanged事件，同时在逻辑部分新增对应控件的赋值语句即可，无需重复编写多套逻辑。

内容的提问来源于stack exchange，提问作者Ian Spurgeon