Leadtools.Multimedia Namespace > AudioFormats Class : Current Property |
'Declaration Public ReadOnly Property Current As Object
'Usage Dim instance As AudioFormats Dim value As Object value = instance.Current
public object Current {get;}
Imports Leadtools Imports Leadtools.Multimedia Imports LeadtoolsMultimediaExamples.Fixtures Public _result As Boolean = False Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public Sub CurrentExample() ' reference the capture control and it's audio formats Dim capturectrl As CaptureCtrl = _form.CaptureCtrl Try ' set an audio device first, you should use your audio device name here If capturectrl.AudioDevices("USB") Is Nothing Then Throw New Exception("No USB audio device available") End If capturectrl.AudioDevices("USB").Selected = True ' reference the audio formats collection Dim audioformats As AudioFormats = capturectrl.AudioCaptureFormats ' enumerate through the list of formats ' demonstrating the current property For Each af As AudioFormat In audioformats ' set the result to what we expect _result = (af Is audioformats.Current) Next af 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 CurrentExample() { // reference the capture control and its audio formats CaptureCtrl capturectrl = _form.CaptureCtrl; try { // set an audio device first. use your audio device's name here if (capturectrl.AudioDevices["USB"] == null) throw new Exception("No USB audio device available"); capturectrl.AudioDevices["USB"].Selected = true; // reference the audio formats collection AudioFormats audioformats = capturectrl.AudioCaptureFormats; // enumerate through the list of formats // demonstrating the current property foreach (AudioFormat af in audioformats) { // set the result to what we expect _result = (af == audioformats.Current); } } catch (Exception) { _result = false; } }