Implements ICloneable : ICloneable « System « VB.Net by API

1. VB.Net by API
2. System
3. ICloneable

Implements ICloneable

  

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

   
    
  

Related examples in the same category