Public Function New( _
   ByVal redFactor As BalanceColorCommandFactor, _
   ByVal greenFactor As BalanceColorCommandFactor, _
   ByVal blueFactor As BalanceColorCommandFactor _
)

Dim redFactor As BalanceColorCommandFactor
Dim greenFactor As BalanceColorCommandFactor
Dim blueFactor As BalanceColorCommandFactor
 
Dim instance As New BalanceColorsCommand(redFactor, greenFactor, blueFactor)

public BalanceColorsCommand( 
   BalanceColorCommandFactor redFactor,
   BalanceColorCommandFactor greenFactor,
   BalanceColorCommandFactor blueFactor
)

public:
BalanceColorsCommand( 
   BalanceColorCommandFactor^ redFactor,
   BalanceColorCommandFactor^ greenFactor,
   BalanceColorCommandFactor^ blueFactor
)

Public Sub BalanceColorsConstructorExample()
   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 RedFactor As BalanceColorCommandFactor = New BalanceColorCommandFactor
   Dim GreenFactor As BalanceColorCommandFactor = New BalanceColorCommandFactor
   Dim BlueFactor As BalanceColorCommandFactor = New BalanceColorCommandFactor

   RedFactor.ToRed = 0.2
   RedFactor.ToGreen = 0.3
   RedFactor.ToBlue = 0.5

   GreenFactor.ToRed = 0.3
   GreenFactor.ToGreen = 0.1
   GreenFactor.ToBlue = 0.6

   BlueFactor.ToRed = 0.8
   BlueFactor.ToGreen = 0.1
   BlueFactor.ToBlue = 0.1

   Dim command As BalanceColorsCommand = New BalanceColorsCommand(RedFactor, GreenFactor, BlueFactor)
   command.Run(leadImage)
   codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)

End Sub

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

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

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

      // Prepare the command
      BalanceColorCommandFactor RedFactor = new BalanceColorCommandFactor();
      BalanceColorCommandFactor GreenFactor = new BalanceColorCommandFactor();
      BalanceColorCommandFactor BlueFactor = new BalanceColorCommandFactor();

      RedFactor.ToRed = 0.2;
      RedFactor.ToGreen = 0.3;
      RedFactor.ToBlue = 0.5;

      GreenFactor.ToRed = 0.3;
      GreenFactor.ToGreen = 0.1;
      GreenFactor.ToBlue = 0.6;

      BlueFactor.ToRed = 0.8;
      BlueFactor.ToGreen = 0.1;
      BlueFactor.ToBlue = 0.1;

      BalanceColorsCommand command = new BalanceColorsCommand(RedFactor, GreenFactor, BlueFactor);
      command.Run(image);
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);

   }

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

public void BalanceColorsConstructorExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   BalanceColorCommandFactor RedFactor = new BalanceColorCommandFactor();
   BalanceColorCommandFactor GreenFactor = new BalanceColorCommandFactor();
   BalanceColorCommandFactor BlueFactor = new BalanceColorCommandFactor();
   RedFactor.ToRed = 0.2;
   RedFactor.ToGreen = 0.3;
   RedFactor.ToBlue = 0.5;

   GreenFactor.ToRed = 0.3;
   GreenFactor.ToGreen = 0.1;
   GreenFactor.ToBlue = 0.6;

   BlueFactor.ToRed = 0.8;
   BlueFactor.ToGreen = 0.1;
   BlueFactor.ToBlue = 0.1;

   BalanceColorsCommand command = new BalanceColorsCommand(RedFactor, GreenFactor, BlueFactor);
   command.Run(image);

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

Public Sub BalanceColorsConstructorExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim RedFactor As BalanceColorCommandFactor = New BalanceColorCommandFactor()
   Dim GreenFactor As BalanceColorCommandFactor = New BalanceColorCommandFactor()
   Dim BlueFactor As BalanceColorCommandFactor = New BalanceColorCommandFactor()
   RedFactor.ToRed = 0.2
   RedFactor.ToGreen = 0.3
   RedFactor.ToBlue = 0.5

   GreenFactor.ToRed = 0.3
   GreenFactor.ToGreen = 0.1
   GreenFactor.ToBlue = 0.6

   BlueFactor.ToRed = 0.8
   BlueFactor.ToGreen = 0.1
   BlueFactor.ToBlue = 0.1

   Dim command As BalanceColorsCommand = New BalanceColorsCommand(RedFactor, GreenFactor, BlueFactor)
   command.Run(image)

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