vb.net - 如何检查是否有任何单选按钮被选中以更改他的前景色

Question

我在表单上的 10 多个单选按钮上使用“For”语句时遇到问题。

一个单选按钮的示例：

If Form2.RadioButton1.Checked = True Then
Form2.RadioButton1.ForeColor = Color.Red
Else
Form2.RadioButton1.ForeColor = Color.Yellow
End If

但是，如果我想在表单上的任何单选按钮上使用它，我将使用如下内容：

   Dim i As Integer
    For i = 1 To 10
        If Form2.RadioButton(i).Checked = True Then
            Form2.RadioButton(i).ForeColor = Color.Red
        Else
            Form2.RadioButton(i).ForeColor = Color.Yellow
        End If
    Next

Answer 1

.net 没有控制数组。遍历表单的 .controls 集合并检查控件类型。

For Each tControl as Control in Me.Controls
  If tControl.GetType Is GetType(RadioButton)
    If DirectCast(tControl, RadioButton).Checked
      ' Change the control's color.
    Else
      ' Change the control's color.
    End If
  End If
Next