Public Overridable ReadOnly Property TargetFormats As TargetFormats

Dim instance As ConvertCtrl
Dim value As TargetFormats
 
value = instance.TargetFormats

public virtual TargetFormats TargetFormats {get;}

public:
virtual property TargetFormats^ TargetFormats {
   TargetFormats^ get();
}

Public _result As Boolean = False
      Public _form As ConvertCtrlForm = New ConvertCtrlForm()
      Public Sub TargetFormatsExample()
         ' reference the convert control
         Dim convertctrl As ConvertCtrl = _form.ConvertCtrl

         ' input and output files
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi")
         Dim outFileDVDPath As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_TargetFormatsExample_DVD")

         Try
            ' set the video capture device, use your capture device name here
            convertctrl.SourceFile = inFile

            ' select video and audio compressors
            convertctrl.VideoCompressors.Mpeg2.Selected = True
            convertctrl.AudioCompressors.AC3.Selected = True

            ' select the DVD target format
            Dim tf As TargetFormat = convertctrl.TargetFormats(TargetFormatType.DVD)
            tf.Selected = True

            ' set the allow capture streams 
            convertctrl.AllowedStreams = tf.Streams

            ' check it directly
            Dim tft As TargetFormatType = convertctrl.TargetFormat

            ' set the result to what we expect
            _result = (tft = TargetFormatType.DVD)

            ' set the target file
            convertctrl.TargetFile = outFileDVDPath

            ' convert it now!
            convertctrl.StartConvert()
         Catch e1 As Exception
            _result = False
         End Try

         ' we'll loop on the state and pump messages for this example.
         ' but you should not need to if running from a Windows Forms application.
         Do While convertctrl.State = ConvertState.Running
            Application.DoEvents()
         Loop
      End Sub

Public NotInheritable Class LEAD_VARS
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media"
End Class

public bool _result = false;
      public ConvertCtrlForm _form = new ConvertCtrlForm();
      public void TargetFormatsExample()
      {
         // reference the convert control
         ConvertCtrl convertctrl = _form.ConvertCtrl;

         // input and output files
         string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi");
         string outFileDVDPath = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_TargetFormatsExample_DVD");

         try
         {
            // set the video capture device, use your capture device name here
            convertctrl.SourceFile = inFile;

            // select video and audio compressors
            convertctrl.VideoCompressors.Mpeg2.Selected = true;
            convertctrl.AudioCompressors.AC3.Selected = true;

            // select the DVD target format
            TargetFormat tf = convertctrl.TargetFormats[TargetFormatType.DVD];
            tf.Selected = true;

            // set the allow capture streams 
            convertctrl.AllowedStreams = tf.Streams;

            // check it directly
            TargetFormatType tft = convertctrl.TargetFormat;

            // set the result to what we expect
            _result = (tft == TargetFormatType.DVD);

            // set the target file
            convertctrl.TargetFile = outFileDVDPath;

            // convert it now!
            convertctrl.StartConvert();
         }
         catch (Exception)
         {
            _result = false;
         }

         // we'll loop on the state and pump messages for this example.
         // but you should not need to if running from a Windows Forms application.
         while (convertctrl.State == ConvertState.Running)
            Application.DoEvents();
      }

static class LEAD_VARS
{
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media";
}