Creates an exact copy of this
AnnObject object.
'Declaration
Public Overridable Function Clone() As Object
'Usage
Dim instance As AnnObject
Dim value As Object
value = instance.Clone()
Return Value
The
AnnObject object that this class creates.
This example copies the objects from one container to another.
Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Imports Leadtools.Drawing
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
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
using Leadtools.Drawing;
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);
}
}