17-10-12, 12:51 AM
كاتب الموضوع : AhmedEssawy
يتم ذلك عبر القيام بعمل For Each على جميع الفورمات الموجودة في المشروع والقيام باغلاقها بالشكل التالي مثلاً :كود :
Public Sub UnloadAllForms()
Dim oFrm As Form
For Each oFrm In Forms
Unload oFrm
Next
End Sub
كود :
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