[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
من المعروف انه لو كان لدينا 2 CheckBox اثناء التشغيل ونريد ان يكون احدهما مفعلا بعكس الاخر
يمكن الاختيار بينهما بالضغط على احدهما فيكون true والغاء الاخر ليكون False نحتاج نقرتين
اما بالكود فيمكننا كتابة الكود التالي في Button حيث ضغطة واحدة :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If CheckBox1.Checked = True Then
           CheckBox1.Checked = False
           CheckBox2.Checked = True
       Else
           CheckBox1.Checked = True
           CheckBox2.Checked = False
       End If
   End Sub

الان ما الجديد في الامر 
هو ليس بجديد بقدر ماهو طريقة جميلة ومختصرة وذلك باستخدام النفي (Not) في زر بوتون 

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       CheckBox1.Checked = Not CheckBox1.Checked
       CheckBox2.Checked = Not CheckBox1.Checked
   End Sub

ويمكن توظيف هذا الكود مع رسالة او غير ذلك حسب الحاجة
واليكم المثال التالي حيث يتم تغيير عملية الضرب الى قسمة ان تمت الموافقة على الرسالة
رمضان كريم والله اكرم

[ابو روضة]

بارك الله فيك أخى الغالى إبراهيم ماشاء الله عليك فنان.....

[ابراهيم ايبو]

السلام عليكم اخي ابو روضة

تسلم اخي  هذا من بعض مالديك وشكرا على الاطراء