برسی چک باکس با دستور حلقه

[nourooz]

سلام چجور میشه با دستور حلقه چند چک باکس را چک کرد مقلا اگه چک باکس یک فعال بود عدد یک را تو یه متغیر ذخیره کنه اگه چک باکس یک و دو 12 و .. .

[sagggad]

یعنی میخوای اشیاء آرایه ای بشن؟

[arman_Delta2002]

dim i as intigar
for i<12
if chekbox1.checked = true then
......
elseif checkbox2.checked = true then
.........
else
........
end if
next i
بهتر نیست از رویداد چکد برای برسی یا انجام یک کار استفاده کنی تا یه حلقه !

[nourooz]

منظورم یه چیز شبیه اینه یعنی واسه هر چک باکس یه دستور ننویسم.
Dim str As String
For i = 1 To 4
If CheckBox & i.Checked = True Then
str = str & i
End If
Next i

[sagggad]

برای آرایه کردن اشیا باید از کد زیر استفاده کنی:

Dim Checks As New List(Of CheckBox)()
For Each c As Control In Me.Controls
If TypeOf c Is CheckBox Then
labels.Add(TryCast(c, Label))
End If
Next

حالا اینجوری میتونی چک کنی که اگر هرکدوم چک شده بود یه کار انجام بشه:

Dim str As String
For i = 1 To 4
If CheckBox(i).Checked = True Then
str = str & i
End If
Next i

[nourooz]

سلام و تشکر از راهنماییتون من باب جمع بندی تاپیک اینم کد نهایی ویرایش شده کد "sagggad":
Dim Checks As New List(Of CheckBox)
For Each ch_b As Control In Me.Controls
If TypeOf ch_b Is CheckBox Then
Checks.Add(ch_b)
End If
Next
Dim str As String
For i = 0 To 3
If Checks(i).Checked = True Then
str = str & i
End If
Next i