Mega Code Archive

 

Categories / VB.Net / Development

 

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