كيف يمكن غلق النوافذ مره واحده

لأي كائن set x = nothing تقوم بتدمير ارتباطه بالذاكرة نهائيا

مانفع :blink:

UNLOAD ME

SET FORL1=NOTHING

END

استعملت هذ الكود ولكن لم تتم العمليه على كل الفورمات..؟

مع ان هذا الكود يطبق الامر على كل الكائنات من نوع معين

For Each Form In Controls
Unload Form
Next

صلي علي النبي :

for each abc in controls

if typeof abc is form then

unload me

next abc

ويوضع الكود السابق في حدث غلق الفورم وسوف يقوم بغلق كل ال forms .

B) B) B) B) B) B) B) B) B) B) B) B) B) B) B) B)

صلى الله عليه وسلم

وإليك شكل اخر

وللأمانه اخدت الكود من هنا :lol:

Dim f As Form
For Each f In Forms
  Unload f
  Set f = Nothing
Next f

ولكن لم تعمل حتى وضعتها في حدث غلق الفورم

أشكرك :lol: والله يوفقك يااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااارب