Public Event Progress As ProgressEventHandler

Dim instance As ConvertCtrl
Dim handler As ProgressEventHandler
 
AddHandler instance.Progress, handler

public event ProgressEventHandler Progress

public:
event ProgressEventHandler^ Progress

Public _result As Boolean = False
      Public _form As ConvertCtrlForm = New ConvertCtrlForm()
      Public Sub ProgressExample()
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi")
         Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_ProgressExample.avi")

         ' reference the convert control
         Dim convertctrl As ConvertCtrl = _form.ConvertCtrl

         Try
            ' set the input and output files
            convertctrl.SourceFile = inFile
            convertctrl.TargetFile = outFile

            ' select video and audio compressors for the output
            convertctrl.VideoCompressors.H264.Selected = True
            convertctrl.AudioCompressors.AMR.Selected = True

            ' set our progress event handler
            AddHandler convertctrl.Progress, AddressOf ConvertCtrl_Progress

            ' convert it now!
            convertctrl.StartConvert()
         Catch cex As COMException
            If cex.ErrorCode = CInt(ErrorCode.VFW_E_WRONG_STATE) Then
               Throw cex
            End If
            _result = False
         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 Sub ConvertCtrl_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
         ' set the result to true if complete
         If e.percent = 100 Then
            _result = True
         End If
      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 ProgressExample()
      {
         string inFile =Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi");
         string outFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_ProgressExample.avi");

         // reference the convert control
         ConvertCtrl convertctrl = _form.ConvertCtrl;

         try
         {
            // set the input and output files
            convertctrl.SourceFile = inFile;
            convertctrl.TargetFile = outFile;

            // select video and audio compressors for the output
            convertctrl.VideoCompressors.H264.Selected = true;
            convertctrl.AudioCompressors.AMR.Selected = true;

            // set our progress event handler
            convertctrl.Progress += new ProgressEventHandler(ConvertCtrl_Progress);

            // convert it now!
            convertctrl.StartConvert();
         }
         catch (COMException cex)
         {
            if (cex.ErrorCode == (int)ErrorCode.VFW_E_WRONG_STATE)
               throw cex;
            _result = false;
         }
         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();
      }

      public void ConvertCtrl_Progress(object sender, ProgressEventArgs e)
      {
         // set the result to true if complete
         if (e.percent == 100)
            _result = true;
      }

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