الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

قاعدهif

بدأه عبدالسلام مصطفى في 15 فبراير 2009 · 2 رد · 618 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

لوسمحت ياجماعه في مشكله عندى مش عارف هو الغلط مني ولا هي كده فأرجو التوضيح

أولا الكود هو

If Check4.Value = True Then

Check1.Value = True

Check2.Value = True

Check3.Value = True

Check4.Value = True

Else

Check1.Value = False

Check2.Value = False

Check3.Value = False

يعني لوcheck 4 صح يعلم تلقائى على الباقي صح

ولو خطأ يبقى الباقي كله خطأ تلقائي

بس أنا عندي لو خطأابيلغى باقي العلامات وده تمام

واكن المشكلهلو صح المفروض يبقى كله صح تلقائيا من غير أنا محدد

اكن عندي لو علمت عليه صح ولا بيعمل أى حاجه ولزما أنا أحددكل حاجه وأنا كده مش فاهم هو فيه أايه

#2

جرب الكود التالي ، وستعرف أين كان الخطأ :

  1. Private Sub Check4_Click()
  2. If Check4.Value = vbChecked Then
  3. Check1.Value = vbChecked
  4. Check2.Value = vbChecked
  5. Check3.Value = vbChecked
  6. Check4.Value = vbChecked
  7. Else
  8. Check1.Value = vbUnchecked
  9. Check2.Value = vbUnchecked
  10. Check3.Value = vbUnchecked
  11. End If
  12. End Sub
  13.  
  14.  

تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 15 فبراير 2009 في 08:37

سبحان الله وبحمده ... سبحان الله العظيم

#3


Check1.Value = Check4.Value
Check2.Value = Check4.Value
Check3.Value = Check4.Value
End Sub
Private Sub Check4_Click()

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي