Public Class SetAlphaValuesCommand 
   Inherits RasterCommand
   Implements IRasterCommand 

Dim instance As SetAlphaValuesCommand

public class SetAlphaValuesCommand : RasterCommand, IRasterCommand  

public ref class SetAlphaValuesCommand : public RasterCommand, IRasterCommand  

Public Sub SetAlphaValuesCommandExample()
      Dim codecs As RasterCodecs = New RasterCodecs()

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
      Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "SetAlphaValuesCommand.bmp")

      ' Load the source image from disk
      Dim image As RasterImage = codecs.Load(srcFileName)

      ' Convert the image to 32-bits/pixel
      Dim colorResolution As ColorResolutionCommand = New ColorResolutionCommand(ColorResolutionCommandMode.InPlace, 32, RasterByteOrder.Bgr, RasterDitheringMethod.None, ColorResolutionCommandPaletteFlags.None, Nothing)
      colorResolution.Run(image)
      Debug.Assert(image.BitsPerPixel = 32)

      ' Set the alpha values
      Dim setAlphaValues As SetAlphaValuesCommand = New SetAlphaValuesCommand()
      setAlphaValues.Alpha = 128
      setAlphaValues.Run(image)

      ' Save the image back to disk
      codecs.Save(image, destFileName, RasterImageFormat.Bmp, 32)

      ' Clean Up
      image.Dispose()
   End Sub

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

public void SetAlphaValuesCommandExample()
   {
      RasterCodecs codecs = new RasterCodecs();

      string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp");
      string destFileName = Path.Combine(LEAD_VARS.ImagesDir, "SetAlphaValuesCommand.bmp");

      // Load the source image from disk
      RasterImage image = codecs.Load(srcFileName);

      // Convert the image to 32-bits/pixel
      ColorResolutionCommand colorResolution = new ColorResolutionCommand(
         ColorResolutionCommandMode.InPlace,
         32,
         RasterByteOrder.Bgr,
         RasterDitheringMethod.None,
         ColorResolutionCommandPaletteFlags.None,
         null);
      colorResolution.Run(image);
      Debug.Assert(image.BitsPerPixel == 32);

      // Set the alpha values
      SetAlphaValuesCommand setAlphaValues = new SetAlphaValuesCommand();
      setAlphaValues.Alpha = 128;
      setAlphaValues.Run(image);

      // Save the image back to disk
      codecs.Save(image, destFileName, RasterImageFormat.Bmp, 32);

      // Clean Up
      image.Dispose();
   }

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

public void SetAlphaValuesCommandExample(RasterImage image, Stream destStream)
{
   RasterCodecs codecs = new RasterCodecs();
   // Convert the image to 32-bits/pixel
   ColorResolutionCommand colorResolution = new ColorResolutionCommand(
      ColorResolutionCommandMode.InPlace,
      32,
      RasterByteOrder.Bgr,
      RasterDitheringMethod.None,
      ColorResolutionCommandPaletteFlags.None,
      null);
   colorResolution.Run(image);
   Debug.Assert(image.BitsPerPixel == 32);

   // Set the alpha values
   SetAlphaValuesCommand setAlphaValues = new SetAlphaValuesCommand();
   setAlphaValues.Alpha = 128;
   setAlphaValues.Run(image);

   // Save the image back to disk
   codecs.Save(image, destStream, RasterImageFormat.Bmp, 32);

   // Clean Up
   image.Dispose();
}

Public Sub SetAlphaValuesCommandExample(ByVal image As RasterImage, ByVal destStream As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()
   ' Convert the image to 32-bits/pixel
   Dim colorResolution As ColorResolutionCommand = New ColorResolutionCommand(ColorResolutionCommandMode.InPlace, 32, RasterByteOrder.Bgr, RasterDitheringMethod.None, ColorResolutionCommandPaletteFlags.None, Nothing)
   colorResolution.Run(image)
   Debug.Assert(image.BitsPerPixel = 32)

   ' Set the alpha values
   Dim setAlphaValues As SetAlphaValuesCommand = New SetAlphaValuesCommand()
   setAlphaValues.Alpha = 128
   setAlphaValues.Run(image)

   ' Save the image back to disk
   codecs.Save(image, destStream, RasterImageFormat.Bmp, 32)

   ' Clean Up
   image.Dispose()
End Sub