Mega Code Archive
ICloneable
<![CDATA[
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
First Object: (5,5)
Cloned Object: (5,5)
]]>