Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result AsBoolean = FalsePublic _form As CaptureCtrlForm = New CaptureCtrlForm()
PublicSub CurrentExample()
' reference the capture control
Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
Try' set an audio device first, you should use your audio device name here
If capturectrl.AudioDevices("USB") IsNothingThenThrowNew Exception("No USB audio device available")
EndIf
capturectrl.AudioDevices("USB").Selected = True' reference the target formats collection
Dim formats As TargetFormats = capturectrl.TargetFormats
' enumerate through the list of formats
' demonstrating the current property
ForEach af As TargetFormat In formats
' set the result to what we expect
_result = (af Is formats.Current)
Next af
Catch e1 As Exception
_result = FalseEndTryEnd Sub
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
publicbool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
publicvoid CurrentExample()
{
// reference the capture control
CaptureCtrl capturectrl = _form.CaptureCtrl;
try
{
// set an audio device first. use your audio device's name here
if (capturectrl.AudioDevices["USB"] == null)
thrownew Exception("No USB audio device available");
capturectrl.AudioDevices["USB"].Selected = true;
// reference the target formats collection
TargetFormats formats = capturectrl.TargetFormats;
// enumerate through the list of formats
// demonstrating the current property
foreach (TargetFormat af in formats)
{
// set the result to what we expect
_result = (af == formats.Current);
}
}
catch (Exception)
{
_result = false;
}
}