http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_Tutorial%2FDesign_Patterns%2FSingletonVB.Net Tutorial/Design Patterns/Singleton - История изменений2026-04-05T12:58:15ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Design_Patterns/Singleton&diff=3067&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/Design_Patterns/Singleton&diff=3068&oldid=prevAdmin: 1 версия2010-05-26T12:54:09Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Singleton Example==<br />
<br />
<br />
<br />
<source lang="vbnet">Public Class Singleton<br />
Private Shared SP As Singleton<br />
Private InnerList as New Collections.ArrayList()<br />
Private Sub New()<br />
End Sub <br />
<br />
Public Shared Function Create() As Singleton<br />
If SP is Nothing Then SP = New Singleton() <br />
Return SP<br />
End Function<br />
Public ReadOnly Property List As Collections.ArrayList<br />
Get<br />
Return InnerList<br />
End Get<br />
End Property<br />
End Class<br />
Module SingletonExample<br />
Sub Main<br />
Dim CountValue as Integer<br />
Dim SP As Singleton = Singleton.Create()<br />
Dim SP2 As Singleton = Singleton.Create()<br />
SP.List.Add("First")<br />
SP.List.Add("Second")<br />
SP.List.Add("Third")<br />
For CountValue = 0 To SP2.List.Count - 1<br />
Console.WriteLine(SP2.List.Item(CountValue).ToString())<br />
Next<br />
End Sub<br />
End Module</source><br />
<pre class=codeResult>First<br />
Second<br />
Third</pre></div>Admin