Attribuer des valeurs à la matrice lorsqu'une case est cochée VB.NET

Question

J'ai des cases à cocher nommées checkbox_1, checkbox_2 .... jusqu'à la case à cocher_10. Je veux créer une boucle à stocker: 1 si la case est cochée et 0 si la case n'est pas cochée dans le tableau emplacements (10).

Answer 1

Cela pourrait se faire avec quelque chose comme:

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