Leadtools.Multimedia Namespace > VideoFormats Class : Current Property |
public object Current {get;}
'Declaration Public ReadOnly Property Current As Object
'Usage Dim instance As VideoFormats Dim value As Object value = instance.Current
public object Current {get;}
get_Current();
Public _result As Boolean = False Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public Sub CurrentExample() ' reference the capture control and it's video formats Dim capturectrl As CaptureCtrl = _form.CaptureCtrl Dim videoformats As VideoFormats = capturectrl.VideoCaptureFormats Try ' set a video device first, you should use your video 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 ' enumerate through the list of formats ' demonstrating the current property For Each vf As VideoFormat In videoformats ' set the result to what we expect _result = (vf Is videoformats.Current) Next vf Catch e1 As Exception _result = False End Try End Sub
public bool _result = false; public CaptureCtrlForm _form = new CaptureCtrlForm(); public void CurrentExample() { // reference the capture control and its video formats CaptureCtrl capturectrl = _form.CaptureCtrl; VideoFormats videoformats = capturectrl.VideoCaptureFormats; try { // set a video device first. use your video device's name here if (capturectrl.VideoDevices["USB"] == null) throw new Exception("No USB video device available"); capturectrl.VideoDevices["USB"].Selected = true; // enumerate through the list of formats // demonstrating the current property foreach (VideoFormat vf in videoformats) { // set the result to what we expect _result = (vf == videoformats.Current); } } catch (Exception) { _result = false; } }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2