كيفية التعامل مع close التي تمثل unload لمبرمجي vb6

___
كيف الحال مبعدين أرض الإبداع :36: ,؟
__

هـذا ثالث موضوع لي وأتمنى لكم الإستفادة .,

ماهو close : هو بلغة الفيجوال بيسك 6 يسمى unload ووضيفته اغلاق فورم معين

في الـvb6عندما نريد مثلا فورم 2 يغلق فورم 1 نكتب
كود:
unload form1

في الفورم لود او في زر بالفورم 2 أليس كذلك ؟ ولكن المفاجأة بالـvb.net عندما نقوم بنفس العمل ونكتب :
كود:
form1.close()

يقوم بإغلاق البرنامج كاملا !, وهنا يتسبب بيأس لدى المنتقلين من الفيجوال بيسك 6 إلى الفيجوال بيسك دوت نت حديثا, في هذا الموضوع سنقوم بشرح عدة أمور منها :
1- لماذا يحدث ذلك ؟
2- ما الحل ؟
3- تطبيق الحل.

لماذا يحدث ذلك ؟
في الفيجوال بيسك 6 يتم تسهيل الأمور عليك ولكن بالفيجوال بيسك دوت نت يقوم بتفصيل الأمور أكثر فأكثر وبنفس الوقت أسهل وأسرع ! , ..
لم تفهمني ؟, فلنوضح ما المقصود :
بالفيجوال بيسك 6 يقوم بعمل EntryPoint غير الـform1 ليسهل عليك عملية unload ولكن بالفيجوال بيسك دوت نت فهذا الخيار ليس متاح ! ,

ما الحل ؟
الحل هو أن نصنع الـEntryPoint ويكون خفيف ومخفي بنفس الوقت ! ,

ولكن لقد عملت مشروع كبير ولا أستطيع حذف فورم1 !!
لا عليك لن تحتاج لحذف الفورم1

حآن وقت التطبيق والشرح !
أفتح مشروعك بالـvb.net وقم بإضافة فورم جديد بأسم EntrryPoint وأجعله هكذا :

وأضف فيه الكود التالي :
كود:
Private Sub EntrryPoint_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' بداية السب
Form1.Show() 'إظهار الفورم1
Me.Opacity = 0 'شفايفية كاملة
Me.Hide() ' إخفاء الفورم
Me.ShowInTaskbar = False
'عدم ظهور الفورم (الانتري بوينت الجديد) بالتاسكبار
End Sub 'إنهاء السب
الآن كمشروع لي اصبح لدي 3 فورمات :
1- الفورم1 (واجهة البرنامج) :

الفورم 2 (الذي تغلق الفورم 1) :

والفورم EntrryPoint أو الانتري بوينت الجديد :


الآن إذهب إلى قائمة Project ثم XXXX properties :

إذهب إلى Startup from وأختر EntrryPoint :

الأن إحفظ المشروع :


شغل المشروع :

أنظر إلى النتيجة !,
تم إغلاق الفورم 1 بدون أن يغلق البرنامج ..

ملاحظة : الإنتري بوينت الجديد إذا تم إغلاقه يتم إغلاق البرنامج كاملا!


والسلام عليكم ورحمة الله وبركاته ..
Dr.EvilCoderSc
:38: