VB.Net by API/System/ICloneable — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:51, 26 мая 2010
Implements ICloneable
<source lang="vbnet"> Public Class Point
Implements ICloneable Public X as Integer Public Y as Integer Sub New(XX as Integer, YY as Integer) X = XX Y = YY End Sub Public Overloads Function ToString() As String Return "(" & X & "," & Y & ")" End Function Public Overridable Function Clone() As Object _ Implements ICloneable.Clone Return New Point(X, Y) End Function
End Class Module Test
Sub Main() Dim P1 As New Point(5, 5) Dim P2 As Point P2 = P1.Clone() Console.WriteLine("First Object: " & P1.ToString()) Console.WriteLine("Cloned Object: " & P2.ToString()) End Sub
End Module
</source>