17-04-23, 02:41 AM
إما تكتب الكود بشكل مباشر مثل ذا :
أو تكتبه ضمن جملة شرطية :
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
TextBox1.Enabled = CheckBox1.Checked
TextBox2.Enabled = CheckBox1.Checked
End Subأو تكتبه ضمن جملة شرطية :
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.Enabled = True
TextBox2.Enabled = True
Else
TextBox1.Enabled = False
TextBox2.Enabled = False
End If
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
