Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Public Sub AnnBrush_AnnBrush(ByVal graphics As Graphics, ByVal br As AnnBrush, ByVal converter As AnnUnitConverter, ByVal rc As AnnRectangle)
Dim gdiBrush As Brush = br.Create(converter, rc)
Try
Dim rect As RectangleF = rc.ConvertTo(converter, AnnUnit.Pixel).ToRectangleF()
graphics.FillRectangle(gdiBrush, rect)
Finally
CType(gdiBrush, IDisposable).Dispose()
End Try
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
public void AnnBrush_AnnBrush(Graphics graphics, AnnBrush br, AnnUnitConverter converter, AnnRectangle rc)
{
using(Brush gdiBrush = br.Create(converter, rc))
{
RectangleF rect = rc.ConvertTo(converter, AnnUnit.Pixel).ToRectangleF();
graphics.FillRectangle(gdiBrush, rect);
}
}