تقييم الموضوع :
  • 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,398 06-05-15, 03:49 PM
آخر رد: ro3h
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 421 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 561 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 641 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 654 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 389 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 681 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القراءة والكتابة إلى INI File RaggiTech 0 373 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,024 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اطفاء الشاشة وتشغيلها RaggiTech 0 377 17-10-12, 12:50 AM
آخر رد: RaggiTech

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


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