Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Private Sub AnnAutomation_CanBringToFront(ByVal automation As AnnAutomation)
   ' first make sure no objects are in this automation container
   automation.Container.Children.Clear()
   ' add three objects to the automation
   Dim brush() As Color = {Colors.Red, Colors.Green, Colors.Blue}
   Dim rectObj As AnnRectangleObject() = New AnnRectangleObject(2) {}
   Dim x As Integer = 100
   Dim y As Integer = 100
   For i As Integer = 0 To 2
      rectObj(i) = New AnnRectangleObject()
      rectObj(i).Rect = New Rect(x, y, 100, 100)
      rectObj(i).Stroke = Colors.Blue
      rectObj(i).StrokeThickness = 2.0
      rectObj(i).Fill = brush(i)
      rectObj(i).Header = String.Format("Rectangle {0}", i + 1)
      rectObj(i).IsHeaderVisible = True
      automation.Container.Children.Add(rectObj(i))
      x += 25
      y += 25
   Next i
   MessageBox.Show("Rectangle1 -> Rectangle2 -> Rectangle3.  Now will select Rectangle1 and move it up")
   ' select rectangle 1 then move it one up in the Z-order
   automation.StartEditing(rectObj(0), False)
   If automation.CanBringToFront Then
      automation.BringToFront(False)
   End If
   MessageBox.Show("Rectangle2 -> Rectangle1 -> Rectangle3.  Now will select Rectangle3 and move it down")
   ' select rectangle 3 then move it down in the Z-order
   automation.StartEditing(rectObj(2), False)
   If automation.CanSendToBack Then
      automation.SendToBack(False)
   End If
   MessageBox.Show("Rectangle2 -> Rectangle3 -> Rectangle1.  Now will select Rectangle2 and move to top")
   ' select rectangle 2 then move it to first of Z-order
   automation.StartEditing(rectObj(1), False)
   If automation.CanBringToFirst Then
      automation.BringToFront(True)
   End If
   MessageBox.Show("Rectangle3 -> Rectangle1 -> Rectangle2.  Now will select Rectangle2 and move to the bottom")
   ' select rectangle 2 then move it to bottom of Z-order
   automation.StartEditing(rectObj(1), False)
   If automation.CanSendToLast Then
      automation.SendToBack(True)
   End If
End Sub
             
   
     
            using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
private void AnnAutomation_CanBringToFront(AnnAutomation automation)
{
   // first make sure no objects are in this automation container
   automation.Container.Children.Clear();
   // add three objects to the automation
   Color[] brush = { Colors.Red, Colors.Green, Colors.Blue };
   AnnRectangleObject[] rectObj = new AnnRectangleObject[3];
   int x = 100;
   int y = 100;
   for(int i = 0; i < 3; i++)
   {
      rectObj[i] = new AnnRectangleObject();
      rectObj[i].Rect = new Rect(x, y, 100, 100);
      rectObj[i].Stroke = Colors.Blue;
      rectObj[i].Fill = brush[i];
      rectObj[i].StrokeThickness = 2.0;
      rectObj[i].Header = String.Format("Rectangle {0}", i + 1);
      rectObj[i].IsHeaderVisible = true;
      automation.Container.Children.Add(rectObj[i]);
      x += 25;
      y += 25;
   }
   MessageBox.Show("Rectangle1 -> Rectangle2 -> Rectangle3.  Now will select Rectangle1 and move it up");
   // select rectangle 1 then move it one up in the Z-order
   automation.StartEditing(rectObj[0], false);
   if(automation.CanBringToFront)
      automation.BringToFront(false);
   MessageBox.Show("Rectangle2 -> Rectangle1 -> Rectangle3.  Now will select Rectangle3 and move it down");
   // select rectangle 3 then move it down in the Z-order
   automation.StartEditing(rectObj[2], false);
   if(automation.CanSendToBack)
      automation.SendToBack(false);
   MessageBox.Show("Rectangle2 -> Rectangle3 -> Rectangle1.  Now will select Rectangle2 and move to top");
   // select rectangle 2 then move it to first of Z-order
   automation.StartEditing(rectObj[1], false);
   if(automation.CanBringToFirst)
      automation.BringToFront(true);
   MessageBox.Show("Rectangle3 -> Rectangle1 -> Rectangle2.  Now will select Rectangle2 and move to the bottom");
   // select rectangle 2 then move it to bottom of Z-order
   automation.StartEditing(rectObj[1], false);
   if(automation.CanSendToLast)
      automation.SendToBack(true);
}
             
   
     
            using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
using Leadtools.Silverlight.Demos;
private void AnnAutomation_CanBringToFront(AnnAutomation automation)
{
   // first make sure no objects are in this automation container
   automation.Container.Children.Clear();
   // add three objects to the automation
   Color[] brush = { Colors.Red, Colors.Green, Colors.Blue };
   AnnRectangleObject[] rectObj = new AnnRectangleObject[3];
   int x = 100;
   int y = 100;
   for(int i = 0; i < 3; i++)
   {
      rectObj[i] = new AnnRectangleObject();
      rectObj[i].Rect = new Rect(x, y, 100, 100);
      rectObj[i].Stroke = Colors.Blue;
      rectObj[i].Fill = brush[i];
      rectObj[i].StrokeThickness = 2.0;
      rectObj[i].Header = String.Format("Rectangle {0}", i + 1);
      rectObj[i].IsHeaderVisible = true;
      automation.Container.Children.Add(rectObj[i]);
      x += 25;
      y += 25;
   }
   MessageBox.Show("Rectangle1 -> Rectangle2 -> Rectangle3.  Now will select Rectangle1 and move it up");
   // select rectangle 1 then move it one up in the Z-order
   automation.StartEditing(rectObj[0], false);
   if(automation.CanBringToFront)
      automation.BringToFront(false);
   MessageBox.Show("Rectangle2 -> Rectangle1 -> Rectangle3.  Now will select Rectangle3 and move it down");
   // select rectangle 3 then move it down in the Z-order
   automation.StartEditing(rectObj[2], false);
   if(automation.CanSendToBack)
      automation.SendToBack(false);
   MessageBox.Show("Rectangle2 -> Rectangle3 -> Rectangle1.  Now will select Rectangle2 and move to top");
   // select rectangle 2 then move it to first of Z-order
   automation.StartEditing(rectObj[1], false);
   if(automation.CanBringToFirst)
      automation.BringToFront(true);
   MessageBox.Show("Rectangle3 -> Rectangle1 -> Rectangle2.  Now will select Rectangle2 and move to the bottom");
   // select rectangle 2 then move it to bottom of Z-order
   automation.StartEditing(rectObj[1], false);
   if(automation.CanSendToLast)
      automation.SendToBack(true);
}
             
   
     
            Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos
Private Sub AnnAutomation_CanBringToFront(ByVal automation As AnnAutomation)
   ' first make sure no objects are in this automation container
   automation.Container.Children.Clear()
   ' add three objects to the automation
   Dim brush As Color() = { Colors.Red, Colors.Green, Colors.Blue }
   Dim rectObj As AnnRectangleObject() = New AnnRectangleObject(2){}
   Dim x As Integer = 100
   Dim y As Integer = 100
   For i As Integer = 0 To 2
      rectObj(i) = New AnnRectangleObject()
      rectObj(i).Rect = New Rect(x, y, 100, 100)
      rectObj(i).Stroke = Colors.Blue
      rectObj(i).Fill = brush(i)
      rectObj(i).StrokeThickness = 2.0
      rectObj(i).Header = String.Format("Rectangle {0}", i + 1)
      rectObj(i).IsHeaderVisible = True
      automation.Container.Children.Add(rectObj(i))
      x += 25
      y += 25
   Next i
   MessageBox.Show("Rectangle1 -> Rectangle2 -> Rectangle3.  Now will select Rectangle1 and move it up")
   ' select rectangle 1 then move it one up in the Z-order
   automation.StartEditing(rectObj(0), False)
   If automation.CanBringToFront Then
      automation.BringToFront(False)
   End If
   MessageBox.Show("Rectangle2 -> Rectangle1 -> Rectangle3.  Now will select Rectangle3 and move it down")
   ' select rectangle 3 then move it down in the Z-order
   automation.StartEditing(rectObj(2), False)
   If automation.CanSendToBack Then
      automation.SendToBack(False)
   End If
   MessageBox.Show("Rectangle2 -> Rectangle3 -> Rectangle1.  Now will select Rectangle2 and move to top")
   ' select rectangle 2 then move it to first of Z-order
   automation.StartEditing(rectObj(1), False)
   If automation.CanBringToFirst Then
      automation.BringToFront(True)
   End If
   MessageBox.Show("Rectangle3 -> Rectangle1 -> Rectangle2.  Now will select Rectangle2 and move to the bottom")
   ' select rectangle 2 then move it to bottom of Z-order
   automation.StartEditing(rectObj(1), False)
   If automation.CanSendToLast Then
      automation.SendToBack(True)
   End If
End Sub