VB.Net Tutorial/Statements/Using statement
Using statement
<source lang="vbnet">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</source>
TODO: free unmanaged resources when explicitly called TODO: free shared unmanaged resources TODO: free unmanaged resources when explicitly called TODO: free shared unmanaged resources