http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FGenerics%2FGeneric_Function
VB.Net/Generics/Generic Function - История изменений
2026-04-05T06:02:03Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/Generics/Generic_Function&diff=328&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<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/Generics/Generic_Function&diff=329&oldid=prev
Admin: 1 версия
2010-05-26T12:42:38Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Generic Swap==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Option Explicit On<br />
Option Strict On<br />
Module Program<br />
Public Function Swap(Of T)(ByRef a As T, ByRef b As T) As T<br />
Console.WriteLine("T is a {0}.", GetType(T))<br />
Dim temp As T<br />
temp = a<br />
a = b<br />
b = temp<br />
End Function<br />
Sub DisplayBaseClass(Of T)()<br />
Console.WriteLine("Base class of {0} is: {1}.", GetType(T), GetType(T).BaseType)<br />
End Sub<br />
Sub Main()<br />
Dim a, b As Integer<br />
a = 10 : b = 40<br />
Swap(Of Integer)(a, b)<br />
Dim s1, s2 As String<br />
s1 = "Generics" : s2 = "Rock"<br />
Swap(Of String)(s1, s2)<br />
Dim b1, b2 As Boolean<br />
b1 = True : b2 = False<br />
Swap(b1, b2)<br />
DisplayBaseClass(Of Boolean)()<br />
DisplayBaseClass(Of String)()<br />
DisplayBaseClass(Of Integer)()<br />
End Sub<br />
End Module<br />
<br />
<br />
</source></div>
Admin