10-12-18, 03:05 AM
مرحباً
لدي مشروع فيه فورمين Frm1 و Frm2 .
من الممنوع عمل الفورمين بآن معاً
أي أن أي منهما عندما يتم عرضه وقت التنفيذ سيتحقق من الآخر هل هو يعمل .. إذا الجواب نعم سيتم عرض رسالة لترك المجال للمستخدم ليقرر أن يبقى في الفورم الحالي أو يغلقه و يفتح الآخر .
كيف سيكون الكود لو سمحتم ؟
قمت بتجربة الكود التالي لكنه لم يعمل :
حيث وضعت الكود في حدث تحميل الفورم الثاني و تم تعريف Frm1_On كمتحول بولياني يأخذ القيمة True عند تحميل الفورم و القيمة False عند إغلاقه .
المشكلة التي حدثت أن الفورم الثاني يتم تحميله عند اختيار VbNo و لكن من غير بيانات في صناديق النص .
لدي مشروع فيه فورمين Frm1 و Frm2 .
من الممنوع عمل الفورمين بآن معاً
أي أن أي منهما عندما يتم عرضه وقت التنفيذ سيتحقق من الآخر هل هو يعمل .. إذا الجواب نعم سيتم عرض رسالة لترك المجال للمستخدم ليقرر أن يبقى في الفورم الحالي أو يغلقه و يفتح الآخر .
كيف سيكون الكود لو سمحتم ؟
قمت بتجربة الكود التالي لكنه لم يعمل :
كود :
Dim msgresponse
If frm1_On Then
msgresponse = MsgBox("للمتابعة و فتح Frm2 ينبغي إغلاق Frm1 ؛ الإغلاق الآن ؟", vbYesNo, "تنبيه")
If msgresponse = vbYes Then
Unload frm1
frm1_On = False
Else
Exit Sub
End If
End If
حيث وضعت الكود في حدث تحميل الفورم الثاني و تم تعريف Frm1_On كمتحول بولياني يأخذ القيمة True عند تحميل الفورم و القيمة False عند إغلاقه .
المشكلة التي حدثت أن الفورم الثاني يتم تحميله عند اختيار VbNo و لكن من غير بيانات في صناديق النص .