Public Overridable Function Clone() As Object

Visual Basic (Usage)	Copy Code
Dim instance As AnnObject Dim value As Object   value = instance.Clone()

public virtual object Clone()

public: virtual Object* Clone(); 

public:
virtual Object^ Clone(); 

Return Value

This example copies the objects from one container to another.

Visual Basic

Copy Code

Public Sub AnnObject_Clone(ByVal srcContainer As AnnContainer, ByVal destContainer As AnnContainer)    ' first remove all objects from the destination container    destContainer.Objects.Clear()    ' copy the objects from the src to the destination container    For Each srcObj As AnnObject In srcContainer.Objects       ' we want to keep the original object intact, so create an exact copy by cloning the object       Dim destObj As AnnObject = CType(IIf(TypeOf srcObj.Clone() Is AnnObject, srcObj.Clone(), Nothing), AnnObject)       destContainer.Objects.Add(destObj)    Next srcObj End Sub

C#

Copy Code

public void AnnObject_Clone(AnnContainer srcContainer, AnnContainer destContainer)  {     // first remove all objects from the destination container     destContainer.Objects.Clear();     // copy the objects from the src to the destination container     foreach(AnnObject srcObj in srcContainer.Objects)     {        // we want to keep the original object intact, so create an exact copy by cloning the object        AnnObject destObj = srcObj.Clone() as AnnObject;        destContainer.Objects.Add(destObj);     }  }

Target Platforms: Microsoft .NET Framework 2.0, Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 family

Reference