[RaggiTech]

كاتب المشاركة : Marwan

حسب ما فهمت من الاستعلام فنحن نريد استخراج الأدوات من داخل أداة GroupBox التي من نوع Label حيث آخر حرف من اسم الليبل مساوي لآخر حرف من اسم أي أداة CheckBox موجودة داخل الـGroupBox حيث الخاصية Checked للأداة CheckBox الأخيرة تساوي True.

هذا ما توصلت اليه:

كود :

Dim controlsWithSameNameEnding = _
From CheckBox As CheckBox In (From c In Me.GroupBox2.Controls Where TypeOf c Is CheckBox Select c), _
Label As Label In (From l In Me.GroupBox2.Controls Where TypeOf l Is Label Select l) _
Where CheckBox.Checked = True AndAlso Mid(Label.Name, Label.Name.Length - 1) = Mid(CheckBox.Name, CheckBox.Name.Length - 1) Order By CheckBox.Name _
Select CheckBox, Label

الاستعلام يعيد كان من نوع IEnumerable Of Label
يمكن الاستغناء عن الدالة Mid بالدالة Substring للفئة String

كود :

Dim controlsWithSameNameEnding = From CheckBox As CheckBox In (From c In Me.GroupBox2.Controls Where TypeOf c Is CheckBox Select c), _
Label As Label In (From l In Me.GroupBox2.Controls Where TypeOf l Is Label Select l) _
Where CheckBox.Checked = True AndAlso Label.Name.Substring(Label.Name.Length - 1) = CheckBox.Name.Substring(CheckBox.Name.Length - 1) Order By CheckBox.Name _
Select CheckBox, Label