public class Test
public Shared Sub Main
Using _
emp1 As New Employee("Ann", "Archer"), _
emp2 As New Employee("Bob", "Beagle")
Dim i As Integer
End Using
End Sub
End class
Public Class Employee
Implements IDisposable
Public Sub New(ByVal first_name As String, ByVal last_name As String)
End Sub
Private disposedValue As Boolean = False
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
Console.WriteLine("TODO: free unmanaged resources when explicitly called")
End If
Console.WriteLine("TODO: free shared unmanaged resources")
End If
Me.disposedValue = True
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
Protected Overrides Sub Finalize()
Dispose(False)
MyBase.Finalize()
End Sub
End Class
|