Leadtools.MediaFoundation Namespace > CaptureSubTypes Class : Current Property |
'Declaration Public ReadOnly Property Current As Object
'Usage Dim instance As CaptureSubTypes Dim value As Object value = instance.Current
public object Current {get;}
Imports Leadtools Imports Leadtools.MediaFoundation Imports LeadtoolsMediaFoundationExamples.Fixtures Public _result As Boolean = False Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public Sub CurrentExample() ' reference the capture control Dim capturectrl As CaptureCtrl = _form.CaptureCtrl ' select a video device, use your device name here instead of USB If capturectrl.VideoDevices("Analog") Is Nothing Then Throw New Exception("No Analog video device available") End If capturectrl.VideoDevices("Analog").Selected = True ' get the video capture subtypes collection Dim subtypes As CaptureSubTypes = capturectrl.VideoCaptureSubTypes Try ' loop through all video subtypes For Each cs As CaptureSubType In subtypes ' set the result to what we expect _result = (cs Is subtypes.Current) Next cs 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
using Leadtools; using Leadtools.MediaFoundation; using LeadtoolsMediaFoundationExamples.Fixtures; public bool _result = false; public CaptureCtrlForm _form = new CaptureCtrlForm(); public void CurrentExample() { // reference the capture control CaptureCtrl capturectrl = _form.CaptureCtrl; // select a video device, use your device name here instead of USB if (capturectrl.VideoDevices["Analog"] == null) throw new Exception("No Analog video device available"); capturectrl.VideoDevices["Analog"].Selected = true; // get the video capture subtypes collection CaptureSubTypes subtypes = capturectrl.VideoCaptureSubTypes; try { // loop through all video subtypes foreach (CaptureSubType cs in subtypes) { // set the result to what we expect _result = (cs == subtypes.Current); } } 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(); }