Leadtools.Annotations Namespace > AnnObject Class : Clone Method |
public virtual object Clone()
'Declaration Public Overridable Function Clone() As Object
public virtual object Clone()
function Leadtools.Annotations.AnnObject.Clone()
public: virtual Object^ Clone();
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
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: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2