Public ReadOnly Property Angle As Integer

Dim instance As DeskewCommand
Dim value As Integer
 
value = instance.Angle

public int Angle {get;}

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

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

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

   ' Prepare the command
   Dim command As DeskewCommand
   command = New DeskewCommand
   'Deskew the image.
   command.Flags = DeskewCommandFlags.DeskewImage Or DeskewCommandFlags.FillExposedArea
   command.FillColor = New RasterColor(255, 255, 0)
   command.Run(leadImage)

   MessageBox.Show("The Angle = " & command.Angle.ToString())

End Sub

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

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

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

      // Prepare the command
      DeskewCommand command = new DeskewCommand();
      //Deskew the image.
      command.Flags = DeskewCommandFlags.DeskewImage | DeskewCommandFlags.FillExposedArea;
      command.FillColor = new RasterColor(255, 255, 0);

      command.Run(image);

      MessageBox.Show("The Angle = " + command.Angle.ToString());

   }

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

public void AnglePropertyExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   DeskewCommand command = new DeskewCommand();
   //Deskew the image.
   command.Flags = DeskewCommandFlags.DeskewImage | DeskewCommandFlags.FillExposedArea;
   command.FillColor = new RasterColor(255, 255, 0);
   command.Run(image);
   Debug.WriteLine("The Angle = " + command.Angle.ToString());

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

Public Sub AnglePropertyExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As DeskewCommand = New DeskewCommand()
   'Deskew the image.
   command.Flags = DeskewCommandFlags.DeskewImage Or DeskewCommandFlags.FillExposedArea
   command.FillColor = New RasterColor(255, 255, 0)
   command.Run(image)
   Debug.WriteLine("The Angle = " & command.Angle.ToString())

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