for 루프를 통해 10 개의 라디오 버튼을 사용하여 어떤 채널이 선택되었는지 확인하는 방법

Question

기본적으로 10 개의 라디오 버튼이 있습니다. 하나를 클릭하면 해당 라디오 버튼과 관련된 번호가 팝업으로 표시됩니다. 그러나 각 라디오 버튼을 개별적으로 탐색하고 if radioButton1.checked를 추가하고 예를 들어 messageBox.show ("1")를 추가하고 싶지 않습니다. 내 루프가 작동하지 않고 10 개의 버튼 이벤트를 처리 할 CheckRadioButton라는 하나의 이벤트 핸들러를 만들었습니다 ... 여기 당신은 radioboxes 사이에 foreach 루프를 사용할 수 있습니다

Public Class Form1 

Dim ListOFNames() As RadioButton = {RadioButton1, RadioButton2, RadioButton3, RadioButton4, RadioButton5, RadioButton6, RadioButton7, RadioButton8, RadioButton9, 
RadioButton10} 


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

End Sub 

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click 

End Sub 
Private Sub CheckRadioButton(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, 
RadioButton4.CheckedChanged, RadioButton5.CheckedChanged, RadioButton6.CheckedChanged, RadioButton7.CheckedChanged, RadioButton8.CheckedChanged, RadioButton9.CheckedChanged, RadioButton10.CheckedChanged 
    For counter = 0 To 9 
     If ListOFNames(counter).Checked Then 
      MessageBox.Show(counter) 

     End If 
    Next 
End Sub 
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged 

End Sub 

Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click 

End Sub 
End Class 

Answer 1

Option Strict On 
Public Class Form39 
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton5.CheckedChanged, RadioButton4.CheckedChanged, RadioButton3.CheckedChanged, RadioButton2.CheckedChanged 'add more RadioButton CheckedChanged event here 
    Dim radio As Object = sender 
    Dim radiobox = CType(radio, RadioButton) 
    '// radiobox was checked 
    '// do whatever you want to do next 

End Sub 
End Class 

Answer 2

코드를입니다 확인 된 상황에서 라디오 박스를 확인합니다.