Garbage collection started : Garbage Collection « Development « VB.Net

1. VB.Net
2. Development
3. Garbage Collection

Garbage collection started

  
Imports System

Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim myform As New Form1()
    End Sub

End Class
  
Public Class Form1
    Public Running As Boolean

    Private Class Junk
        Public MyForm As Form1

        Public Sub New(ByVal my_form As Form1)
            MyForm = my_form
        End Sub

        ' Garbage collection started.
        Protected Overrides Sub Finalize()
            ' Stop making objects.
            MyForm.Running = False
        End Sub
    End Class

    Public Sub New()
        Running = True

        Dim new_obj As Junk
        Dim max_i As Long
        For i As Long = 1 To 100000
            new_obj = New Junk(Me)

            If Not Running Then
                max_i = i
                Exit For
            End If
        Next i
        Console.WriteLine("Allocated " & max_i.ToString & " objects")
    End Sub
End Class

           
         
    
  

Related examples in the same category

1.	Object Generation
2.	Force a garbage collect
3.	GC Suppress Finalize me
4.	Force Garbage Collection
5.	Request garbage collection
6.	Get GC generation
7.	GC Class
8.	Determine which generation object is stored in
9.	Determine the best available approximation of the number of bytes currently allocated in managed memory
10.	Perform a collection of generation 0 only
11.	GC.GetGeneration returns the current generation number of the target of a specified weak reference.