2017-05-18 3 views

Antwort

0

, die mit so etwas wie getan werden könnte:

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 
+0

funktionierte perfekt sein! Vielen Dank! – phillip87

Verwandte Themen