Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Private Sub AnnPolygonObject_AnnPolygonObject(ByVal container As AnnContainer)
Dim polygon As AnnPolygonObject = New AnnPolygonObject()
polygon.Points.Add(New AnnPoint(100, 100, AnnUnit.Pixel))
polygon.Points.Add(New AnnPoint(200, 100, AnnUnit.Pixel))
polygon.Points.Add(New AnnPoint(200, 200, AnnUnit.Pixel))
polygon.Points.Add(New AnnPoint(100, 300, AnnUnit.Pixel))
polygon.Pen = New AnnPen(Color.Red, New AnnLength(1, AnnUnit.Pixel))
polygon.Brush = New AnnSolidBrush(Color.White)
polygon.FillMode = FillMode.Alternate
polygon.Closed = True
container.Objects.Add(polygon)
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
private void AnnPolygonObject_AnnPolygonObject(AnnContainer container)
{
AnnPolygonObject polygon = new AnnPolygonObject();
polygon.Points.Add(new AnnPoint(100, 100, AnnUnit.Pixel));
polygon.Points.Add(new AnnPoint(200, 100, AnnUnit.Pixel));
polygon.Points.Add(new AnnPoint(200, 200, AnnUnit.Pixel));
polygon.Points.Add(new AnnPoint(100, 300, AnnUnit.Pixel));
polygon.Pen = new AnnPen(Color.Red, new AnnLength(1, AnnUnit.Pixel));
polygon.Brush = new AnnSolidBrush(Color.White);
polygon.FillMode = FillMode.Alternate;
polygon.Closed = true;
container.Objects.Add(polygon);
}