تقييم الموضوع :
  • 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
}}}
تم الشكر بواسطة:



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


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