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);
}
}