Force Garbage Collection : Garbage Collection « Development « VB.Net

Force Garbage Collection

Force Garbage Collection
Imports System.IO

Module Module1

    Sub Main()
        Dim c1 As New Contact("Name 1", "111-555-1111", "")
        Dim c2 As New Contact("Name 2", "222-555-1212", "")
        Dim c3 As New Contact("Name 3", "333-555-1212", "")
        c1 = Nothing ' Discard the object
        Console.WriteLine("Back from first collection")

        c3 = Nothing ' Discard the object
        Console.WriteLine("Back from second collection -- Press Enter")
    End Sub

End Module

    Class Contact
        Public Name As String
        Public Phone As String
        Public EMail As String

        Sub New(ByVal ContactName As String, ByVal ContactPhone As String, ByVal ContactEmail As String)
            Console.WriteLine("Name: " & ContactName & " Phone " & ContactPhone & " Email " & ContactEmail)
            Name = ContactName
            Phone = ContactPhone
            EMail = ContactEmail
        End Sub

        Protected Overrides Sub Finalize()
            Console.WriteLine("In Finalize for " & Name)
        End Sub
    End Class


Related examples in the same category

1.Object GenerationObject Generation
2.Force a garbage collectForce a garbage collect
3.GC Suppress Finalize meGC Suppress Finalize me
4.Garbage collection startedGarbage collection started
5.Request garbage collectionRequest 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.