Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.WinForms
Imports Leadtools.Drawing
Public Sub AnnAutomation_CanBringToFront(ByVal automation As AnnAutomation)
' first make sure no objects are in this automation container
automation.Container.Objects.Clear()
automation.Viewer.Invalidate()
' add three objects to the automation
Dim brushColor As Color() = {Color.Red, Color.Green, Color.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).Bounds = New AnnRectangle(x, y, 100, 100, AnnUnit.Pixel)
rectObj(i).Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel))
rectObj(i).Brush = New AnnSolidBrush(brushColor(i))
rectObj(i).Name = String.Format("Rectangle {0}", i + 1)
rectObj(i).NameVisible = True
automation.Container.Objects.Add(rectObj(i))
x += 25
y += 25
Next i
automation.Viewer.Invalidate()
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;
using Leadtools.Annotations;
using Leadtools.WinForms;
using Leadtools.Drawing;
public void AnnAutomation_CanBringToFront(AnnAutomation automation)
{
// first make sure no objects are in this automation container
automation.Container.Objects.Clear();
automation.Viewer.Invalidate();
// add three objects to the automation
Color[] brushColor = {Color.Red, Color.Green, Color.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].Bounds = new AnnRectangle(x, y, 100, 100, AnnUnit.Pixel);
rectObj[i].Pen = new AnnPen(Color.Blue, new AnnLength(1, AnnUnit.Pixel));
rectObj[i].Brush = new AnnSolidBrush(brushColor[i]);
rectObj[i].Name = String.Format("Rectangle {0}", i + 1);
rectObj[i].NameVisible = true;
automation.Container.Objects.Add(rectObj[i]);
x += 25;
y += 25;
}
automation.Viewer.Invalidate();
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);
}