Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As CaptureCtrlForm = New CaptureCtrlForm()
Public Sub AudioInputsExample()
  Dim txtInfo As String = String.Empty
  ' reference the capture control
  Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
  ' select an audio device, use your device name here instead of USB
  If capturectrl.AudioDevices("USB") Is Nothing Then
     Throw New Exception("No USB audio device available")
  End If
  capturectrl.AudioDevices("USB").Selected = True
  ' get the audio inputs object
  Dim audioinputs As AudioInputs = capturectrl.AudioInputs
  Try
     ' get master values
             txtInfo = String.Format("Enable state {0}" _
                                     & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Loudness state {1}" _
                                     & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Mixlevel value {2}" & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Mono state {3}" _
                                     & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Pan value {4}" & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Bass value {5}" & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Bass range value {6}" & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Treble value {7}" & Microsoft.VisualBasic.Constants.vbLf _
                                     & "Treble range value {8}" & Microsoft.VisualBasic.Constants.vbLf _
                                     + Microsoft.VisualBasic.Constants.vbLf & "Are these values correct?", _
                                     audioinputs.Enable, _
                                     audioinputs.Loudness, _
                                     audioinputs.MixLevel.ToString(), _
                                     audioinputs.Mono, _
                                     audioinputs.Pan.ToString(), _
                                     audioinputs.Bass, _
                                     audioinputs.BassRange, _
                                     audioinputs.Treble, _
                                     audioinputs.TrebleRange)
     ' display the named audio input properties
     _result = (MessageBox.Show(_form, txtInfo, "Test Verify", MessageBoxButtons.YesNo) = DialogResult.Yes)
  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.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void AudioInputsExample()
{
   string txtInfo = string.Empty;
   // reference the capture control
   CaptureCtrl capturectrl = _form.CaptureCtrl;
   // select an audio device. use your device's name here instead of USB
   if (capturectrl.AudioDevices["USB"] == null)
      throw new Exception("No USB audio device available");
   capturectrl.AudioDevices["USB"].Selected = true;
   // get the audio inputs object
   AudioInputs audioinputs = capturectrl.AudioInputs;
   try
   {
      // get the master values
      txtInfo = string.Format("Enable state {0}\n" +
                              "Loudness state {1}\n" +
                              "Mixlevel value {2}\n" +
                              "Mono state {3}\n" +
                              "Pan value {4}\n" +
                              "Bass value {5}\n" +
                              "Bass range value {6}\n" +
                              "Treble value {7}\n" +
                              "Treble range value {8}\n\n" +
                              "Are these values correct?",
      audioinputs.Enable, audioinputs.Loudness, audioinputs.MixLevel.ToString(), audioinputs.Mono,
      audioinputs.Pan.ToString(), audioinputs.Bass, audioinputs.BassRange, audioinputs.Treble, audioinputs.TrebleRange);
      // display the named audio input properties
      _result = (MessageBox.Show(_form, txtInfo, "Test Verify", MessageBoxButtons.YesNo) == DialogResult.Yes);
   }
   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();
}