تفريغ الذاكرة

السلام على الكرام

من خصائص البرامج العالية الجودة أنها تفرغ جميع ما وضعته في

الذاكرة لكي يتحرر الكمبيوتر من اي دوال او قيود قام بتشغيلها البرنامج

بعض المبرمجين يقوم بانهاء البرنامج بـ End والتي تنهي البرنامج بالفعل

ولكن دون تفريغ الذاكرة.

الحل هو استخدام unload للفورم (Unload Form1) والذي يغلق الفورم

ويمحي ما تركه من اثر في الذاكرة.

اما اذا كان لدينا اكثر من فورم فنضع في كود زر انهاء البرنامج هذا الكود

Dim f As Integer

    f = Forms.Count

    Do While f > 0

        Unload Forms(f - 1)

        ' If form isn't unloaded exit (User had canceled...)

        If f = Forms.Count Then Exit Do

        f = f - 1

    Loop

    

    End

وبهذه الطريق نغلق جميع نوافذ البرنامج الظاهرة والمخفية ونحرر الذاكرة

forms.count تحسب عدد النوافذ المفتوحة