Leadtools.Multimedia Namespace > CameraControl Class : Zoom Property |
'Declaration Public Property Zoom As Integer
'Usage Dim instance As CameraControl Dim value As Integer instance.Zoom = value value = instance.Zoom
public int Zoom {get; set;}
Assigning a value to this property can raise an error exception.
For more information, refer to the Error Codes.
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
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; } }