01-06-23, 10:03 AM
أفضل وأبسط حل هو الذي طرحه الأخ (asmarsou):
وهذا هو ولكن مع تعديل بسيط ،
حيث أنه من الخطأ استخدام تايمر في هذه الحالة :
بالاضافة لترتيب التحديد بحسب اسم الأداة .
الكود بعد التعديل هو :
وهذا هو ولكن مع تعديل بسيط ،
حيث أنه من الخطأ استخدام تايمر في هذه الحالة :
بالاضافة لترتيب التحديد بحسب اسم الأداة .
الكود بعد التعديل هو :
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles _
CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged,
CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged
TextBox1.Text = (String.Join(", ",
From cb In Controls.OfType(Of CheckBox)()
Where cb.Checked
Order By cb.Text
Select cb.Text))
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».