基于行列输入生成的Button点击后无法切换背景色求助

问题原因 #

你当前用了全局的isColorChanged布尔变量控制所有按钮的颜色切换状态，所有动态生成的按钮共用这一个状态值。第一次点击任意按钮后，变量变为True，后续点击任何按钮时，逻辑会基于这个全局变量判断，而非按钮自身的实际颜色状态，导致无法正确切换回初始颜色。

解决方法 #

方法一：用按钮的Tag属性存储单个按钮的状态 #

让每个按钮单独保存自己的颜色切换状态，避免全局变量冲突：

Private Sub btnDynamic_Click(sender As Object, e As EventArgs) Handles btnDynamic.Click
    ' 将触发事件的控件转为Button类型
    Dim currentBtn As Button = DirectCast(sender, Button)
    ' 从Tag获取当前按钮的状态，默认未变色（False）
    Dim isChanged As Boolean = If(currentBtn.Tag Is Nothing, False, CBool(currentBtn.Tag))

    If isChanged Then
        ' 切换回初始背景色
        currentBtn.BackColor = SystemColors.Control
    Else
        ' 切换到目标背景色
        currentBtn.BackColor = Color.LightBlue
    End If
    ' 更新当前按钮的状态
    currentBtn.Tag = Not isChanged
End Sub

方法二：直接对比按钮当前背景色判断 #

不需要额外存储状态，直接通过当前颜色判断切换逻辑：

Private Sub btnDynamic_Click(sender As Object, e As EventArgs) Handles btnDynamic.Click
    Dim currentBtn As Button = DirectCast(sender, Button)

    If currentBtn.BackColor = Color.LightBlue Then
        currentBtn.BackColor = SystemColors.Control
    Else
        currentBtn.BackColor = Color.LightBlue
    End If
End Sub

内容的提问来源于stack exchange，提问作者Elvan Lex