Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Public Sub AnnObjectCollectionExample(ByVal container As AnnContainer)
AddHandler container.ObjectAdded, AddressOf container_ObjectAdded
AddHandler container.ObjectRemoved, AddressOf container_ObjectRemoved
' add a few objects
Dim lineObj As AnnLineObject = New AnnLineObject()
lineObj.Start = New Point(100, 100)
lineObj.End = New Point(200, 200)
lineObj.Stroke = Colors.Blue
lineObj.StrokeThickness = 2.0
lineObj.Header = "Object 1"
Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
rectObj.Rect = New Rect(200, 200, 100, 100)
rectObj.Stroke = Colors.Blue
rectObj.StrokeThickness = 2.0
rectObj.Fill = Colors.Transparent
rectObj.Header = "Object 2"
Dim ellipseObj As AnnEllipseObject = New AnnEllipseObject()
ellipseObj.Rect = New Rect(200, 200, 150, 100)
ellipseObj.Stroke = Colors.Yellow
ellipseObj.StrokeThickness = 2.0
ellipseObj.Fill = Colors.Green
ellipseObj.Header = "Object 3"
container.Children.Add(lineObj)
container.Children.Add(rectObj)
container.Children.Add(ellipseObj)
' insert new Object
Dim newLineObj As AnnLineObject = DirectCast(lineObj.Clone(), AnnLineObject)
newLineObj.Start = New Point(110, 110)
newLineObj.End = New Point(210, 210)
newLineObj.Stroke = Colors.Red
newLineObj.StrokeThickness = 2.0
newLineObj.Header = "New Object"
container.Children.Insert(1, newLineObj)
' check if collection contains this new item
System.Diagnostics.Debug.Assert(container.Children.Contains(newLineObj))
' remove this new item
container.Children.Remove(newLineObj)
System.Diagnostics.Debug.Assert((Not container.Children.Contains(newLineObj)))
' remove the last item
container.Children.RemoveAt(container.Children.Count - 1)
System.Diagnostics.Debug.Assert(container.Children.Count = 2)
' send the first item to the end of the collection
container.Children.SendToBack(lineObj, True)
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) = container.Children.Count - 1)
' bring it back to the front
container.Children.BringToFront(lineObj, True)
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) = 0)
' clean the collection
container.Children.Clear()
System.Diagnostics.Debug.Assert(container.Children.Count = 0)
End Sub
Private Sub container_ObjectAdded(ByVal sender As Object, ByVal e As AnnObjectCollectionEventArgs)
Console.WriteLine("The Object ((" & e.Object.Header & ")) Has been added to the collection")
End Sub
Private Sub container_ObjectRemoved(ByVal sender As System.Object, ByVal e As AnnObjectCollectionEventArgs)
Console.WriteLine("The Object ((" & e.Object.Header & ")) Has been removed from the collection")
End Sub
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
public void AnnObjectCollectionExample(AnnContainer container)
{
container.ObjectAdded += new EventHandler<AnnObjectCollectionEventArgs>(container_ObjectAdded);
container.ObjectRemoved += new EventHandler<AnnObjectCollectionEventArgs>(container_ObjectRemoved);
// add a few objects
AnnLineObject lineObj = new AnnLineObject();
lineObj.Start = new Point(100, 100);
lineObj.End = new Point(200, 200);
lineObj.Stroke = Colors.Blue;
lineObj.StrokeThickness = 2.0;
lineObj.Header = "Object 1";
AnnRectangleObject rectObj = new AnnRectangleObject();
rectObj.Rect = new Rect(200, 200, 100, 100);
rectObj.Stroke = Colors.Blue;
rectObj.Fill = Colors.Transparent;
rectObj.StrokeThickness = 2.0;
rectObj.Header = "Object 2";
AnnEllipseObject ellipseObj = new AnnEllipseObject();
ellipseObj.Rect = new Rect(200, 200, 150, 100);
ellipseObj.Stroke = Colors.Yellow;
ellipseObj.Fill = Colors.Green;
ellipseObj.StrokeThickness = 2.0;
ellipseObj.Header = "Object 3";
container.Children.Add(lineObj);
container.Children.Add(rectObj);
container.Children.Add(ellipseObj);
// insert new Object
AnnLineObject newLineObj = lineObj.Clone() as AnnLineObject;
newLineObj.Start = new Point(110, 110);
newLineObj.End = new Point(210, 210);
newLineObj.Stroke = Colors.Red;
newLineObj.StrokeThickness = 2.0;
newLineObj.Header = "New Object";
container.Children.Insert(1, newLineObj);
// check if collection contains this new item
System.Diagnostics.Debug.Assert(container.Children.Contains(newLineObj));
// remove this new item
container.Children.Remove(newLineObj);
System.Diagnostics.Debug.Assert(!container.Children.Contains(newLineObj));
// remove the last item
container.Children.RemoveAt(container.Children.Count - 1);
System.Diagnostics.Debug.Assert(container.Children.Count == 2);
// send the first item to the end of the collection
container.Children.SendToBack(lineObj, true);
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) == container.Children.Count - 1);
// bring it back to the front
container.Children.BringToFront(lineObj, true);
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) == 0);
// clean the collection
container.Children.Clear();
System.Diagnostics.Debug.Assert(container.Children.Count == 0);
}
private void container_ObjectAdded(object sender, AnnObjectCollectionEventArgs e)
{
Console.WriteLine("The Object ((" + e.Object.Header + ")) Has been added to the collection");
}
private void container_ObjectRemoved(System.Object sender, AnnObjectCollectionEventArgs e)
{
Console.WriteLine("The Object ((" + e.Object.Header + ")) Has been removed from the collection");
}
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
public void AnnObjectCollectionExample(AnnContainer container)
{
container.ObjectAdded += new EventHandler<AnnObjectCollectionEventArgs>(container_ObjectAdded);
container.ObjectRemoved += new EventHandler<AnnObjectCollectionEventArgs>(container_ObjectRemoved);
// add a few objects
AnnLineObject lineObj = new AnnLineObject();
lineObj.Start = new Point(100, 100);
lineObj.End = new Point(200, 200);
lineObj.Stroke = Colors.Blue;
lineObj.StrokeThickness = 2.0;
lineObj.Header = "Object 1";
AnnRectangleObject rectObj = new AnnRectangleObject();
rectObj.Rect = new Rect(200, 200, 100, 100);
rectObj.Stroke = Colors.Blue;
rectObj.Fill = Colors.Transparent;
rectObj.StrokeThickness = 2.0;
rectObj.Header = "Object 2";
AnnEllipseObject ellipseObj = new AnnEllipseObject();
ellipseObj.Rect = new Rect(200, 200, 150, 100);
ellipseObj.Stroke = Colors.Yellow;
ellipseObj.Fill = Colors.Green;
ellipseObj.StrokeThickness = 2.0;
ellipseObj.Header = "Object 3";
container.Children.Add(lineObj);
container.Children.Add(rectObj);
container.Children.Add(ellipseObj);
// insert new Object
AnnLineObject newLineObj = lineObj.Clone() as AnnLineObject;
newLineObj.Start = new Point(110, 110);
newLineObj.End = new Point(210, 210);
newLineObj.Stroke = Colors.Red;
newLineObj.StrokeThickness = 2.0;
newLineObj.Header = "New Object";
container.Children.Insert(1, newLineObj);
// check if collection contains this new item
System.Diagnostics.Debug.Assert(container.Children.Contains(newLineObj));
// remove this new item
container.Children.Remove(newLineObj);
System.Diagnostics.Debug.Assert(!container.Children.Contains(newLineObj));
// remove the last item
container.Children.RemoveAt(container.Children.Count - 1);
System.Diagnostics.Debug.Assert(container.Children.Count == 2);
// send the first item to the end of the collection
container.Children.SendToBack(lineObj, true);
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) == container.Children.Count - 1);
// bring it back to the front
container.Children.BringToFront(lineObj, true);
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) == 0);
// clean the collection
container.Children.Clear();
System.Diagnostics.Debug.Assert(container.Children.Count == 0);
}
private void container_ObjectAdded(object sender, AnnObjectCollectionEventArgs e)
{
Console.WriteLine("The Object ((" + e.Object.Header + ")) Has been added to the collection");
}
private void container_ObjectRemoved(System.Object sender, AnnObjectCollectionEventArgs e)
{
Console.WriteLine("The Object ((" + e.Object.Header + ")) Has been removed from the collection");
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Public Sub AnnObjectCollectionExample(ByVal container As AnnContainer)
AddHandler container.ObjectAdded, AddressOf container_ObjectAdded
AddHandler container.ObjectRemoved, AddressOf container_ObjectRemoved
' add a few objects
Dim lineObj As AnnLineObject = New AnnLineObject()
lineObj.Start = New Point(100, 100)
lineObj.End = New Point(200, 200)
lineObj.Stroke = Colors.Blue
lineObj.StrokeThickness = 2.0
lineObj.Header = "Object 1"
Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
rectObj.Rect = New Rect(200, 200, 100, 100)
rectObj.Stroke = Colors.Blue
rectObj.Fill = Colors.Transparent
rectObj.StrokeThickness = 2.0
rectObj.Header = "Object 2"
Dim ellipseObj As AnnEllipseObject = New AnnEllipseObject()
ellipseObj.Rect = New Rect(200, 200, 150, 100)
ellipseObj.Stroke = Colors.Yellow
ellipseObj.Fill = Colors.Green
ellipseObj.StrokeThickness = 2.0
ellipseObj.Header = "Object 3"
container.Children.Add(lineObj)
container.Children.Add(rectObj)
container.Children.Add(ellipseObj)
' insert new Object
Dim newLineObj As AnnLineObject = TryCast(lineObj.Clone(), AnnLineObject)
newLineObj.Start = New Point(110, 110)
newLineObj.End = New Point(210, 210)
newLineObj.Stroke = Colors.Red
newLineObj.StrokeThickness = 2.0
newLineObj.Header = "New Object"
container.Children.Insert(1, newLineObj)
' check if collection contains this new item
System.Diagnostics.Debug.Assert(container.Children.Contains(newLineObj))
' remove this new item
container.Children.Remove(newLineObj)
System.Diagnostics.Debug.Assert((Not container.Children.Contains(newLineObj)))
' remove the last item
container.Children.RemoveAt(container.Children.Count - 1)
System.Diagnostics.Debug.Assert(container.Children.Count = 2)
' send the first item to the end of the collection
container.Children.SendToBack(lineObj, True)
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) = container.Children.Count - 1)
' bring it back to the front
container.Children.BringToFront(lineObj, True)
System.Diagnostics.Debug.Assert(container.Children.IndexOf(lineObj) = 0)
' clean the collection
container.Children.Clear()
System.Diagnostics.Debug.Assert(container.Children.Count = 0)
End Sub
Private Sub container_ObjectAdded(ByVal sender As Object, ByVal e As AnnObjectCollectionEventArgs)
Console.WriteLine("The Object ((" & e.Object.Header & ")) Has been added to the collection")
End Sub
Private Sub container_ObjectRemoved(ByVal sender As System.Object, ByVal e As AnnObjectCollectionEventArgs)
Console.WriteLine("The Object ((" & e.Object.Header & ")) Has been removed from the collection")
End Sub