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", "1@1.com")
        Dim c2 As New Contact("Name 2", "222-555-1212", "2@2.com")
        Dim c3 As New Contact("Name 3", "333-555-1212", "3@3.com")
        
        c1 = Nothing ' Discard the object
        GC.Collect()
        Console.WriteLine("Back from first collection")

        c3 = Nothing ' Discard the object
        GC.Collect()
        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.