استفاده از حلقه for each

[nasseritemp]

سلام فرض کنید تعداد زیادی checkBox در فرم شما وجود دارد. سئوالی که داشتم اینه که چطور میشه با یک حلقه یکی از Property های مشترک آنها(مثلا Checked) رو بررسی کرد؟

[ricky22]

Private Sub fUnCheck(p_ctlParent As Control)
For Each ctl As Control In p_ctlParent.Controls
If TypeOf ctl Is CheckBox Then
if DirectCast(ctl, CheckBox).Checked = true then
'YourCode

End If
Next
End Sub


موفق باشید.