Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Public Sub AnnObject_Clone(ByVal srcContainer As AnnContainer, ByVal destContainer As AnnContainer)
' first remove all objects from the destination container
destContainer.Children.Clear()
' copy the objects from the src to the destination container
For Each srcObj As AnnObject In srcContainer.Children
' we want to keep the original object intact, so create an exact copy by cloning the object
Dim destObj As AnnObject = DirectCast(srcObj.Clone(), AnnObject)
destContainer.Children.Add(destObj)
Next srcObj
End Sub
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
public void AnnObject_Clone(AnnContainer srcContainer, AnnContainer destContainer)
{
// first remove all objects from the destination container
destContainer.Children.Clear();
// copy the objects from the src to the destination container
foreach (AnnObject srcObj in srcContainer.Children)
{
// we want to keep the original object intact, so create an exact copy by cloning the object
AnnObject destObj = srcObj.Clone() as AnnObject;
destContainer.Children.Add(destObj);
}
}
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
public void AnnObject_Clone(AnnContainer srcContainer, AnnContainer destContainer)
{
// first remove all objects from the destination container
destContainer.Children.Clear();
// copy the objects from the src to the destination container
foreach (AnnObject srcObj in srcContainer.Children)
{
// we want to keep the original object intact, so create an exact copy by cloning the object
AnnObject destObj = srcObj.Clone() as AnnObject;
destContainer.Children.Add(destObj);
}
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Public Sub AnnObject_Clone(ByVal srcContainer As AnnContainer, ByVal destContainer As AnnContainer)
' first remove all objects from the destination container
destContainer.Children.Clear()
' copy the objects from the src to the destination container
For Each srcObj As AnnObject In srcContainer.Children
' we want to keep the original object intact, so create an exact copy by cloning the object
Dim destObj As AnnObject = TryCast(srcObj.Clone(), AnnObject)
destContainer.Children.Add(destObj)
Next srcObj
End Sub