Public Class DotRemoveCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As DotRemoveCommand

public class DotRemoveCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class DotRemoveCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public WithEvents dotRemoveCommandCallback_S1 As DotRemoveCommand
Public Sub DotRemoveCommandExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

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

   ' Prepare the command
   dotRemoveCommandCallback_S1 = New DotRemoveCommand
   dotRemoveCommandCallback_S1.Flags = DotRemoveCommandFlags.UseSize
   dotRemoveCommandCallback_S1.MaximumDotHeight = 10
   dotRemoveCommandCallback_S1.MaximumDotWidth = 10
   dotRemoveCommandCallback_S1.MinimumDotHeight = 1
   dotRemoveCommandCallback_S1.MinimumDotWidth = 1

   dotRemoveCommandCallback_S1.Run(leadImage)

End Sub

Private Sub DotRemoveCommand_DotRemove_S1(ByVal sender As Object, ByVal e As DotRemoveCommandEventArgs) Handles dotRemoveCommandCallback_S1.DotRemove
   MessageBox.Show("Size   " + Convert.ToString(e.BoundingRectangle.Width) + Convert.ToString(e.BoundingRectangle.Height) + "Bounds" _
            + Convert.ToString(e.BoundingRectangle.Left) + "," + Convert.ToString(e.BoundingRectangle.Top) + "," + Convert.ToString(e.BoundingRectangle.Right) + "," + Convert.ToString(e.BoundingRectangle.Bottom) + "," _
            + "     WhiteCount" + Convert.ToString(e.WhiteCount) + "    BlackCount" + Convert.ToString(e.BlackCount), "DotRemove Event")

   'Do not remove the speck if it contains any white pixels
   If (e.WhiteCount > 0) Then
      e.Status = RemoveStatus.NoRemove
   Else
      e.Status = RemoveStatus.Remove
   End If
End Sub

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

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

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Clean.tif"));

      // Prepare the command
      DotRemoveCommand command = new DotRemoveCommand();
      command.DotRemove += new EventHandler<DotRemoveCommandEventArgs>(DotRemoveEvent_S1);
      command.Flags            = DotRemoveCommandFlags.UseSize ;
      command.MaximumDotHeight = 10;
      command.MaximumDotWidth  = 10;
      command.MinimumDotHeight = 1;
      command.MinimumDotWidth  = 1;

      command.Run(image);

   }

   private void DotRemoveEvent_S1(object sender, DotRemoveCommandEventArgs e)
   {
      MessageBox.Show("Size   " + e.BoundingRectangle.Width + e.BoundingRectangle.Height + "Bounds" 
         + e.BoundingRectangle.Left + ","+ e.BoundingRectangle.Top + ","+ e.BoundingRectangle.Right + ","+ e.BoundingRectangle.Bottom + ","
         + "     WhiteCount" + e.WhiteCount + "    BlackCount"+ e.BlackCount,"DotRemove Event" );

      //Do not remove the speck if it contains any white pixels
      if (e.WhiteCount > 0)
      {
         e.Status = RemoveStatus.NoRemove;
      }
      else
      {
         e.Status = RemoveStatus.Remove;
      }
   }

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

public void DotRemoveCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   DotRemoveCommand command = new DotRemoveCommand();
   command.DotRemove += new EventHandler<DotRemoveCommandEventArgs>(DotRemoveEvent_S1);
   command.Flags            = DotRemoveCommandFlags.UseSize ;
   command.MaximumDotHeight = 10;
   command.MaximumDotWidth  = 10;
   command.MinimumDotHeight = 1;
   command.MinimumDotWidth  = 1;
   command.Run(image);

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

private void DotRemoveEvent_S1(object sender, DotRemoveCommandEventArgs e)
{
   Debug.WriteLine("Size   " + e.BoundingRectangle.Width + e.BoundingRectangle.Height + "Bounds" 
      + e.BoundingRectangle.Left + ","+ e.BoundingRectangle.Top + ","+ e.BoundingRectangle.Right + ","+ e.BoundingRectangle.Bottom + ","
      + "     WhiteCount" + e.WhiteCount + "    BlackCount"+ e.BlackCount,"DotRemove Event", MessageBoxButton.OK );

   //Do not remove the speck if it contains any white pixels
   if (e.WhiteCount > 0)
   {
      e.Status = RemoveStatus.NoRemove;
   }
   else
   {
      e.Status = RemoveStatus.Remove;
   }
}

Public Sub DotRemoveCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As DotRemoveCommand = New DotRemoveCommand()
   AddHandler command.DotRemove, AddressOf DotRemoveEvent_S1
   command.Flags = DotRemoveCommandFlags.UseSize
   command.MaximumDotHeight = 10
   command.MaximumDotWidth = 10
   command.MinimumDotHeight = 1
   command.MinimumDotWidth = 1
   command.Run(image)

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

Private Sub DotRemoveEvent_S1(ByVal sender As Object, ByVal e As DotRemoveCommandEventArgs)
   Debug.WriteLine("Size   " & e.BoundingRectangle.Width + e.BoundingRectangle.Height & "Bounds" & e.BoundingRectangle.Left & "," & e.BoundingRectangle.Top & "," & e.BoundingRectangle.Right & "," & e.BoundingRectangle.Bottom & "," & "     WhiteCount" & e.WhiteCount & "    BlackCount" & e.BlackCount,"DotRemove Event", MessageBoxButton.OK)

   'Do not remove the speck if it contains any white pixels
   If e.WhiteCount > 0 Then
      e.Status = RemoveStatus.NoRemove
   Else
      e.Status = RemoveStatus.Remove
   End If
End Sub