驗證單選按鈕組

Question

如何驗證組框中的至少一個單選按鈕是否被選中？我正在驗證所有的文本控件都是這樣正確填充的;

 For Each ctrl As Control In Me.Controls 
     If TypeOf ctrl Is TextBox Then 
      If ctrl.Text = "" Then 
       MessageBox.Show("Please enter information in " & ctrl.Name, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
       Exit Sub 
      End If 
     End If 

是否有一個類似的單選按鈕的方法，因爲我似乎無法找到完成此操作的邏輯方法。

Answer 1

您可以使用LINQ：

Dim uncheckedRadios = From radio In Me.groupbox1.Controls.OfType(Of RadioButton)() 
         Where Not radio.Checked 
         Select radio.Name 
Dim anyUnchecked As Boolean = uncheckedRadios.Any() 

If anyUnchecked Then 
    Dim uncheckedNames = String.Join(",", uncheckedRadios) 
    MessageBox.Show("Please check all radio-buttons, these are not checked: " & uncheckedNames, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
    Return 
End If