选中复选框时为数组赋值 VB.NET
Assign values to array when a checkbox is checked VB.NET
我有名为 checkbox_1、checkbox_2 .... 最多 checkbox_10 个的复选框。我想创建一个循环来存储：如果选中复选框则为 1，如果未选中复选框则为 0 - 在 locations(10) 数组中。
这可以通过类似的方式完成：
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
我有名为 checkbox_1、checkbox_2 .... 最多 checkbox_10 个的复选框。我想创建一个循环来存储：如果选中复选框则为 1，如果未选中复选框则为 0 - 在 locations(10) 数组中。
这可以通过类似的方式完成：
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