Mega Code Archive

 
Categories / VB.Net / Development
 

GC GetGeneration returns the current generation number of the target of a specified weak reference

Imports System    Class MyGCCollectClass       Private maxGarbage As Long = 1000       Public Shared Sub Main()          Dim myGCCol As New MyGCCollectClass          myGCCol.MakeSomeGarbage()          Console.WriteLine("The object is in generation: {0}", _                             GC.GetGeneration(myGCCol))          GC.Collect()       End Sub       Sub MakeSomeGarbage()          Dim vt As Version          Dim i As Integer          For i = 0 To maxGarbage - 1             ' Create objects and release them to fill up memory             ' with unused objects.             vt = New Version          Next i       End Sub    End Class