Public ReadOnly Property NumberOfPoints As Integer

Dim instance As CorrelationCommand
Dim value As Integer
 
value = instance.NumberOfPoints

public int NumberOfPoints {get;}

public:
property int NumberOfPoints {
   int get();
}

Public Sub NumberOfPointsPropertyExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))

   ' Prepare the command
   Dim points() As LeadPoint
   ReDim points(89)

   Dim DstImage As RasterImage = leadImage.Clone()
   Dim command As CorrelationCommand = New CorrelationCommand
   command.CorrelationImage = DstImage
   command.Threshold = 70
   command.XStep = 1
   command.YStep = 1
   command.Points = points
   ' Apply the correlation filter.
   command.Run(leadImage)

   MessageBox.Show("The number of points are:" & command.NumberOfPoints.ToString())

End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void NumberOfPointsPropertyExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      RasterImage dstImage = image.Clone();
      CorrelationCommand command = new CorrelationCommand();
      command.CorrelationImage = dstImage;
      command.Threshold = 70;
      command.XStep = 1;
      command.YStep = 1;
      command.Points = new LeadPoint[90];
      // Apply the correlation filter.
      command.Run(image);

      MessageBox.Show("The number of points are:" + command.NumberOfPoints.ToString());

   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

public void NumberOfPointsPropertyExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   RasterImage dstImage = image.Clone();
   CorrelationCommand command = new CorrelationCommand();
   command.CorrelationImage = dstImage;
   command.Threshold = 70;
   command.XStep = 1;
   command.YStep = 1;
   command.Points = new LeadPoint[90];
   // Apply the correlation filter.
   command.Run(image);
   Debug.WriteLine("The number of points are:" + command.NumberOfPoints.ToString());

   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
}

Public Sub NumberOfPointsPropertyExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim dstImage As RasterImage = image.Clone()
   Dim command As CorrelationCommand = New CorrelationCommand()
   command.CorrelationImage = dstImage
   command.Threshold = 70
   command.XStep = 1
   command.YStep = 1
   command.Points = New LeadPoint(89){}
   ' Apply the correlation filter.
   command.Run(image)
   Debug.WriteLine("The number of points are:" & command.NumberOfPoints.ToString())

   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
End Sub