Imports Leadtools
Imports Leadtools.Annotations
Private Sub AnnPoint_AnnPoint()
' set up a new unit converter with 96 DPI
Dim converter As AnnUnitConverter = New AnnUnitConverter(96, 96)
' create a new annotation point at inch coordinate 1.5, 2
Dim pt As AnnPoint = New AnnPoint(1.5F, 2.0F, AnnUnit.Inch)
' show the point
Dim s As String = String.Format("{0}", pt)
MessageBox.Show(s)
' convert the point to pixels
pt.Convert(converter, AnnUnit.Pixel)
' show
s = String.Format("{0}", pt)
MessageBox.Show(s)
End Sub
using Leadtools;
using Leadtools.Annotations;
private void AnnPoint_AnnPoint()
{
// set up a new unit converter with 96 DPI
AnnUnitConverter converter = new AnnUnitConverter(96, 96);
// create a new annotation point at inch coordinate 1.5, 2
AnnPoint pt = new AnnPoint(1.5f, 2f, AnnUnit.Inch);
// show the point
string s = string.Format("{0}", pt);
MessageBox.Show(s);
// convert the point to pixels
pt.Convert(converter, AnnUnit.Pixel);
// show
s = string.Format("{0}", pt);
MessageBox.Show(s);
}