체크 박스가 체크되어있을 때 배열에 값을 지정하십시오. VB.NET

Question

checkbox_1, checkbox_2 ...라는 체크 박스가 있습니다. checkbox_10까지입니다. 체크 박스가 체크되어 있으면 1을, 체크 박스가 체크되어 있지 않으면 0을 저장하기위한 루프를 만들고 싶습니다.

Answer 1

같은 것을 함께 할 수있는 :

For i As Integer = 1 To 10 
    Dim matches() As Control = Me.Controls.Find("checkbox_" & i, True) 
    If matches.Length > 0 AndAlso TypeOf matches(0) Is CheckBox Then 
     Dim cb As CheckBox = DirectCast(matches(0), CheckBox) 
     Locations(i - 1) = IIf(cb.Checked, 1, 0) 
    End If 
Next