How Do Unload All Forms

مرحباً أخي الكريم,

لديك إحدى الحلول التالية :

تغيّر الخاصية ShutDown Mode للـ( Application ) إلى ( When last form closes ) واستخدام التالي :

إغلاق جميع الـ Forms بشكل فعلي عدا طالبة للإجراء :

 

[color= #b1b100;]For [color= #990000;]Each Frm [color= #b1b100;]As Form In My[color= #339933;].Application[color= #339933;].OpenForms

[color= #b1b100;]If Not Frm[color= #339933;].Equals[color= #009900;]( Me [color= #009900;]) Then Frm[color= #339933;].Close[color= #009900;]([color= #009900;])

[color= #990000;]Next Frm

أو عدم تغيّير أي من خصائص الـ( Application ) وإخفاء الـ Forms عدا الطالبة للإجراء :

انسخ الكود

 

[color= #b1b100;]For [color= #990000;]Each Frm [color= #b1b100;]As Form In My[color= #339933;].Application[color= #339933;].OpenForms

[color= #b1b100;]If Not Frm[color= #339933;].Equals[color= #009900;]( Me [color= #009900;]) Then Frm[color= #339933;].Hide[color= #009900;]([color= #009900;])

[color= #990000;]Next Frm

أو شبيهة بسابقتها :

انسخ الكود

 

[color= #b1b100;]For [color= #990000;]Each Frm [color= #b1b100;]As Form In My[color= #339933;].Application[color= #339933;].OpenForms

[color= #b1b100;]If Not Frm[color= #339933;].Equals[color= #009900;]( Me [color= #009900;]) Then Frm[color= #339933;].Visible [color= #339933;]= [color= #000000; font-weight: bold;]False

[color= #990000;]Next Frm

بالتوفيق

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 19 مارس 2009 في 22:39

How Do Unload All Forms

مواضيع مشابهة