如何检查是否检查了任何单选按钮以更改其前景色

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