Imports Leadtools
Imports Leadtools.MediaFoundation
Imports LeadtoolsMediaFoundationExamples.Fixtures
Public _form As New CaptureCtrlForm()
Public _capturectrl As CaptureCtrl = Nothing
Public _result As Boolean = False
Private _dibFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_SaveStillDIB.dib")
Public Sub SaveStillDIBExample()
    ' reference the capture control
    _capturectrl = _form.CaptureCtrl
    Try
        ' select a video capture device
        If _capturectrl.VideoDevices("USB") Is Nothing Then
            Throw New Exception("No USB video device available")
        End If
        _capturectrl.VideoDevices("USB").Selected = True
        ' start the capture
        _capturectrl.StartCapture(CaptureMode.Still)
        ' save the still DIB to a file
        _capturectrl.SaveStillDIB(_dibFile, -1)
        ' stop the capture
        _capturectrl.StopCapture()
        ' check for the capture file and set the result
        If File.Exists(Path.Combine(Directory.GetCurrentDirectory(), _dibFile)) Then
            _result = True
        End If
    Catch generatedExceptionName As Exception
        _result = False
    End Try
End Sub
Public NotInheritable Class LEAD_VARS
Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"
End Class
             
   
     
            using Leadtools;
using Leadtools.MediaFoundation;
using LeadtoolsMediaFoundationExamples.Fixtures;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public CaptureCtrl _capturectrl = null;
public bool _result = false;
string _dibFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_SaveStillDIB.dib");
public void SaveStillDIBExample()
{
   // reference the capture control
   _capturectrl = _form.CaptureCtrl;
   try
   {
      // select a video capture device
      if (_capturectrl.VideoDevices["USB"] == null)
         throw new Exception("No USB video device available");
      _capturectrl.VideoDevices["USB"].Selected = true;
      // start the capture
      _capturectrl.StartCapture(CaptureMode.Still);
      // save the still DIB to a file
      _capturectrl.SaveStillDIB(_dibFile, -1);
      // stop the capture
      _capturectrl.StopCapture();
      // check for the capture file and set the result
      if (File.Exists(Path.Combine(Directory.GetCurrentDirectory(), _dibFile)))
         _result = true;
   }
   catch (Exception)
   {
      _result = false;
   }
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media";
}