Public Overridable ReadOnly Property VideoProcAmp As VideoProcAmp

Dim instance As CaptureCtrl
Dim value As VideoProcAmp
 
value = instance.VideoProcAmp

public virtual VideoProcAmp VideoProcAmp {get;}

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

Public _result As Boolean = False
      Public _form As CaptureCtrlForm = New CaptureCtrlForm()
      Public _outFile As String = Path.Combine(LEAD_VARS.MediaDir, "VideoProcAmp_GetExample.avi")
      Public Sub GetExample()
         ' reference the capture control
         Dim capturectrl As CaptureCtrl = _form.CaptureCtrl

         Try
            ' select the first device with analog in it's name
            ' Replace "Analog" with your video capture device name
            If capturectrl.VideoDevices("Analog") Is Nothing Then
               Throw New Exception("No Analog video devices available!")
            End If

            capturectrl.VideoDevices("Analog").Selected = True

            ' set a video compressor
            capturectrl.VideoCompressors.Mpeg2.Selected = True

            ' set the target file
            capturectrl.TargetFile = _outFile

            ' reference the video proc amp 
            Dim videoprocamp As VideoProcAmp = capturectrl.VideoProcAmp

            If Not videoprocamp Is Nothing Then
               ' set the auto brightness property 
               videoprocamp.AutoBrightness = True

               ' set to black and white
               videoprocamp.ColorEnable = False

               ' enable backlight compensation, if available
               videoprocamp.BacklightCompensation = True
            End If

            ' check for video capture available
            If capturectrl.IsModeAvailable(CaptureMode.Video) Then
               ' capture 15 seconds of video
               capturectrl.UseTimeLimit = True
               capturectrl.TimeLimit = 15

               ' subscribe to the compete event
               AddHandler capturectrl.Complete, AddressOf CaptureCtrl_Complete
               ' start the capture
               capturectrl.StartCapture(CaptureMode.Video)
            End If
         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 capturectrl.State = CaptureState.Running
            Application.DoEvents()
         Loop
      End Sub

      Private Sub CaptureCtrl_Complete(ByVal sender As Object, ByVal e As EventArgs)
         ' set the result to what we expect
         _result = File.Exists(_outFile)
      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 CaptureCtrlForm _form = new CaptureCtrlForm();
      public string _outFile = Path.Combine(LEAD_VARS.MediaDir, "VideoProcAmp_GetExample.avi");
      public void GetExample()
      {
         // reference the capture control
         CaptureCtrl capturectrl = _form.CaptureCtrl;

         try
         {
            // select the first device with analog in it's name
            // Replace "Analog" with your video capture device name
            if (capturectrl.VideoDevices["Analog"] == null)
               throw new Exception("No Analog video devices available!");

            capturectrl.VideoDevices["Analog"].Selected = true;

            // set a video compressor
            capturectrl.VideoCompressors.Mpeg2.Selected = true;

            // set the target file
            capturectrl.TargetFile = _outFile;

            // reference the video proc amp 
            VideoProcAmp videoprocamp = capturectrl.VideoProcAmp;

            if (videoprocamp != null)
            {
               // set the auto brightness property 
               videoprocamp.AutoBrightness = true;

               // set to black and white
               videoprocamp.ColorEnable = false;

               // enable backlight compensation, if available
               videoprocamp.BacklightCompensation = true;
            }

            // check for video capture available
            if (capturectrl.IsModeAvailable(CaptureMode.Video))
            {
               // capture 15 seconds of video
               capturectrl.UseTimeLimit = true;
               capturectrl.TimeLimit = 15;

               // subscribe to the compete event
               capturectrl.Complete += new EventHandler(CaptureCtrl_Complete);
               // start the capture
               capturectrl.StartCapture(CaptureMode.Video);
            }
         }
         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 (capturectrl.State == CaptureState.Running)
            Application.DoEvents();
      }

      void CaptureCtrl_Complete(object sender, EventArgs e)
      {
         // set the result to what we expect
         _result = File.Exists(_outFile);
      }

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