http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_Tutorial%2FClass_Module%2FDestructorVB.Net Tutorial/Class Module/Destructor - История изменений2026-04-05T00:17:10ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Class_Module/Destructor&diff=3415&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:30Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Class_Module/Destructor&diff=3416&oldid=prevAdmin: 1 версия2010-05-26T12:55:24Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Destructor in three levels==<br />
<br />
<br />
<br />
<source lang="vbnet">Class A<br />
Public Sub New()<br />
Console.WriteLine("In class A constructor")<br />
End Sub<br />
Protected Overrides Sub Finalize()<br />
Console.WriteLine("In class A destructor")<br />
MyBase.Finalize()<br />
End Sub<br />
End Class<br />
Class B<br />
Inherits A<br />
Public Sub New()<br />
Console.WriteLine("In class B constructor")<br />
End Sub<br />
Protected Overrides Sub Finalize()<br />
Console.WriteLine("In class B destructor")<br />
MyBase.Finalize()<br />
End Sub<br />
End Class<br />
Class C<br />
Inherits B<br />
Public Sub New()<br />
Console.WriteLine("In class C constructor")<br />
End Sub<br />
Protected Overrides Sub Finalize()<br />
Console.WriteLine("In class C destructor")<br />
MyBase.Finalize()<br />
End Sub<br />
End Class<br />
<br />
Module Module1<br />
Sub Main()<br />
Dim objSample As New C()<br />
End Sub<br />
End Module</source><br />
<pre class=codeResult>In class A constructor<br />
In class B constructor<br />
In class C constructor<br />
In class C destructor<br />
In class B destructor<br />
In class A destructor</pre><br />
<br />
==Inherit destructor==<br />
<br />
<br />
<br />
<source lang="vbnet">Class Base<br />
Public Sub New()<br />
Console.WriteLine("The Base Class Constructor is Running")<br />
End Sub<br />
Protected Overrides Sub Finalize()<br />
Console.WriteLine("The Base Class Destructor is Running")<br />
MyBase.Finalize()<br />
End Sub<br />
End Class<br />
Class Derived<br />
Inherits Base<br />
Public Sub New()<br />
Console.WriteLine("The Derived Class Constructor is Running")<br />
End Sub<br />
Protected Overrides Sub Finalize()<br />
Console.WriteLine("The Derived Class Destructor is Running")<br />
MyBase.Finalize()<br />
End Sub<br />
End Class<br />
<br />
Module Module1<br />
Sub Main()<br />
Dim Sample As New Derived()<br />
End Sub<br />
End Module</source><br />
<pre class=codeResult>The Base Class Constructor is Running<br />
The Derived Class Constructor is Running<br />
The Derived Class Destructor is Running<br />
The Base Class Destructor is Running</pre></div>Admin