06-11-24, 12:13 AM
وعليكم السلام ورحمة الله وبركاته
إما الحل العادي :
أو بحسب (Linq) :
إما الحل العادي :
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles _
CheckBox1.CheckedChanged, CheckBox2.CheckedChanged,
CheckBox3.CheckedChanged, CheckBox4.CheckedChanged,
CheckBox5.CheckedChanged, CheckBox6.CheckedChanged,
CheckBox7.CheckedChanged, CheckBox8.CheckedChanged,
CheckBox9.CheckedChanged, CheckBox10.CheckedChanged
Dim Ce1 As Int16 = 0
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is CheckBox Then
If CType(ctrl, CheckBox).Checked = True Then Ce1 += 1
End If
Next
TextBox1.Text = Ce1.ToString
End Subأو بحسب (Linq) :
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles _
CheckBox1.CheckedChanged, CheckBox2.CheckedChanged,
CheckBox3.CheckedChanged, CheckBox4.CheckedChanged,
CheckBox5.CheckedChanged, CheckBox6.CheckedChanged,
CheckBox7.CheckedChanged, CheckBox8.CheckedChanged,
CheckBox9.CheckedChanged, CheckBox10.CheckedChanged
TextBox1.Text = (From cb In Controls.OfType(Of CheckBox)()
Where cb.Checked
Order By cb.Text
Select cb.Checked).Count
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
