Products | Support | Email a link to this topic. | Send comments on this topic. | Back to Introduction - All Topics | Help Version 19.0.5.10
|
Leadtools.Windows.Annotations Namespace > AnnObject Class : Clone Method |
public virtual AnnObject Clone()
'Declaration Public Overridable Function Clone() As AnnObject
public: virtual AnnObject^ Clone();
This example copies the objects from one container to another.
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