Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Public Sub AnnGroupObject_FrameBackPen(ByVal obj As AnnGroupObject)
Dim back As AnnPen = obj.FrameBackPen
Dim fore As AnnPen = obj.FrameForePen
obj.FrameBackPen = New AnnPen(System.Drawing.Color.Black, New AnnLength(3, AnnUnit.Pixel))
obj.FrameForePen = New AnnPen(System.Drawing.Color.White, New AnnLength(3, AnnUnit.Pixel))
obj.FrameForePen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot
obj.ObjectPen = New AnnPen(System.Drawing.Color.MediumPurple, New AnnLength(4, AnnUnit.Pixel))
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
public void AnnGroupObject_FrameBackPen(AnnGroupObject obj)
{
AnnPen back = obj.FrameBackPen;
AnnPen fore = obj.FrameForePen;
obj.FrameBackPen = new AnnPen(System.Drawing.Color.Black, new AnnLength(3, AnnUnit.Pixel));
obj.FrameForePen = new AnnPen(System.Drawing.Color.White, new AnnLength(3, AnnUnit.Pixel));
obj.FrameForePen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot;
obj.ObjectPen = new AnnPen(System.Drawing.Color.MediumPurple, new AnnLength(4, AnnUnit.Pixel));
}