←Select platform

Focus Property

Summary

Gets or sets the camera's focus setting.

Syntax

C++

public int Focus {get; set;}

Public Property Focus As Integer

public: 
property int Focus { 
   int get(); 
   void set (    int ); 
}

Property Value

The property value.

Remarks

Gets and sets the manual setting for the CameraControlProperty.Focus property. To get the range and default value of this camera property, use the CameraControl.FocusInfo property. For more information, refer to the Microsoft documentation for the IAMCameraControl.Get and IAMCameraControl.Set methods. Assigning a value to this property can raise an error exception.

For more information, refer to the Error Codes.

Example

using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public bool _result = false; 
public CaptureCtrlForm _form = new CaptureCtrlForm(); 
 
public void CameraControlExample() 
{ 
   // reference the capture control 
   CaptureCtrl capturectrl = _form.CaptureCtrl; 
 
   try 
   { 
      // try to find a USB video device. use your device's name here 
      if (capturectrl.VideoDevices["USB"] == null) 
         throw new Exception("No USB video device available"); 
 
      capturectrl.VideoDevices["USB"].Selected = true; 
 
      // reference the camera control 
      CameraControl camera = capturectrl.CameraControl; 
 
      if (camera != null) 
      { 
         // try to set some camera auto properties 
         camera.AutoExposure = true; 
         camera.AutoFocus = true; 
         camera.AutoIris = true; 
         camera.AutoPan = false; 
         camera.AutoRoll = false; 
         camera.AutoTilt = false; 
         camera.AutoZoom = true; 
 
         // now try to set some camera manual properties 
         camera.Exposure = camera.ExposureInfo.Min; 
         camera.Focus = camera.FocusInfo.Max; 
         camera.Iris = camera.IrisInfo.Default; 
         camera.Pan = camera.PanInfo.Min; 
         camera.Roll = camera.RollInfo.Min; 
         camera.Tilt = camera.TiltInfo.Min; 
         camera.Zoom = camera.ZoomInfo.Min; 
 
         // now increment a property by the stepping delta 
         camera.Exposure += camera.ExposureInfo.StepDelta; 
 
         // set the result to what we expect 
         _result = (camera.Exposure == camera.ExposureInfo.Min + camera.ExposureInfo.StepDelta); 
 
         // now check a property to see if it is supported and has a manual setting 
         // if so, set it to auto 
         if (camera.ExposureInfo.Flags != CameraControlFlags.Unsupported 
            && camera.ExposureInfo.Flags == CameraControlFlags.Manual) 
            camera.AutoExposure = true; 
 
         // set the result to what we expect 
         _result &= (camera.ExposureInfo.Flags == CameraControlFlags.Auto); 
      } 
 
      // continue setting capture settings 
      // and possibly start a capture process 
      // ... 
   } 
   catch (Exception) 
   { 
      _result = false; 
   } 
}

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As CaptureCtrlForm = New CaptureCtrlForm() 
 
Public Sub CameraControlExample() 
   ' reference the capture control 
   Dim capturectrl As CaptureCtrl = _form.CaptureCtrl 
 
   Try 
      ' try to find a USB video device, use your device name here 
      If capturectrl.VideoDevices("USB") Is Nothing Then 
         Throw New Exception("No USB video device available") 
      End If 
 
      capturectrl.VideoDevices("USB").Selected = True 
 
      ' reference the camera control 
      Dim camera As CameraControl = capturectrl.CameraControl 
 
      If Not camera Is Nothing Then 
         ' try to set some camera auto properties 
         camera.AutoExposure = True 
         camera.AutoFocus = True 
         camera.AutoIris = True 
         camera.AutoPan = False 
         camera.AutoRoll = False 
         camera.AutoTilt = False 
         camera.AutoZoom = True 
 
         ' now try to set some camera manual properties 
         camera.Exposure = camera.ExposureInfo.Min 
         camera.Focus = camera.FocusInfo.Max 
         camera.Iris = camera.IrisInfo.Default 
         camera.Pan = camera.PanInfo.Min 
         camera.Roll = camera.RollInfo.Min 
         camera.Tilt = camera.TiltInfo.Min 
         camera.Zoom = camera.ZoomInfo.Min 
 
         ' now increment a property by the stepping delta 
         camera.Exposure += camera.ExposureInfo.StepDelta 
 
         ' set the result to what we expect 
         _result = (camera.Exposure = camera.ExposureInfo.Min + camera.ExposureInfo.StepDelta) 
 
         ' now check a property to see if it is supported and has a manual setting 
         ' if so, set it to auto 
         If camera.ExposureInfo.Flags <> CameraControlFlags.Unsupported AndAlso camera.ExposureInfo.Flags = CameraControlFlags.Manual Then 
            camera.AutoExposure = True 
         End If 
 
         ' set the result to what we expect 
         _result = _result And (camera.ExposureInfo.Flags = CameraControlFlags.Auto) 
      End If 
 
      ' continue setting capture settings 
      ' and possibly start a capture process 
      ' ... 
   Catch e1 As Exception 
      _result = False 
   End Try 
End Sub