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