تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية القيام باغلاق ال forms المختلفة
#1
كاتب الموضوع : AhmedEssawy

يتم ذلك عبر القيام بعمل For Each على جميع الفورمات الموجودة في المشروع والقيام باغلاقها بالشكل التالي مثلاً :


كود :
Public Sub UnloadAllForms()
Dim oFrm As Form
For Each oFrm In Forms
Unload oFrm
Next
End Sub
ولاغلاق الجميع مثلاً ما عدا الفورم ال Active حالياً نقو بعمل متغير يحتوي على الفورم النشط حالياً وقبل الاغلاق يتم التأكد منه ، حيث نقوم بعمل تغيير في قيمة متغير كل حدث Form_Activate :


كود :
Private Sub Form_Activate()
'Form_Activate is a logical place to do this
Dim oFrm As Form
For Each oFrm In Forms
if oFrm.Name <> me.Name and Not _
(TypeOf oFrm Is MDIForm) then Unload oFrm
Next
End Sub
وفي الحدث الخاص بالاغلاق نقوم بقراءة قيمة المتغير واغلاق ما عداه من الفورمات :


كود :
dim oFrm as Form
for each oFrm in Forms
if oFrm.Name <> FormToStay and Not _
(TypeOf oFrm Is MDIForm) then unload oFrm
next
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج للتحويل بين انظمة العد المختلفة abulayth 6 2,296 06-05-15, 03:49 PM
آخر رد: ro3h
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 402 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 546 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 621 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 627 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 375 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 659 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القراءة والكتابة إلى INI File RaggiTech 0 356 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اطفاء الشاشة وتشغيلها RaggiTech 0 363 17-10-12, 12:50 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم