Public Overridable ReadOnly Property VideoCaptureStreamType As String

Dim instance As CaptureCtrl
Dim value As String
 
value = instance.VideoCaptureStreamType

public virtual string VideoCaptureStreamType {get;}

public:
virtual property String^ VideoCaptureStreamType {
   String^ get();
}

Public _result As Boolean = False
  Public _form As CaptureCtrlForm = New CaptureCtrlForm()
  Public Sub CaptureSubTypesExample()
     Dim name, friendlyName As String
     Dim selection As Integer

     ' reference the capture control
     Dim capturectrl As CaptureCtrl = _form.CaptureCtrl

     ' select a video device, use your device name here instead of Analog
     If capturectrl.VideoDevices("Analog") Is Nothing Then
        Throw New Exception("No Analog video tuner device available")
     End If

     capturectrl.VideoDevices("Analog").Selected = True

     ' get the audio inputs object
     Dim subTypes As CaptureSubTypes = capturectrl.VideoCaptureSubTypes

     ' save the current subtype selection
     selection = subTypes.Selection

     Try
        ' select an capture subtype by name for MPEG2Video if available
        If Not subTypes(Leadtools.Multimedia.Constants.MEDIASUBTYPE_MPEG2Video) Is Nothing AndAlso capturectrl.VideoCaptureStreamType = Leadtools.Multimedia.Constants.MEDIATYPE_Stream Then
           subTypes(Leadtools.Multimedia.Constants.MEDIASUBTYPE_MPEG2Video).Selected = True
        Else ' else try YUY2
           If Not subTypes(Leadtools.Multimedia.Constants.MEDIASUBTYPE_YUY2) Is Nothing Then
              subTypes(Leadtools.Multimedia.Constants.MEDIASUBTYPE_YUY2).Selected = True
     End If
     End If

     For Each cst As CaptureSubType In subTypes
       ' get the subtype properties
       name = cst.Name
       friendlyName = cst.FriendlyName

       ' if we found the video tuner input
       If friendlyName = "YUY2" Then
         ' select it and break
         cst.Selected = True
         Exit For
       End If
     Next cst

     ' set the result to what we expect
     _result = (selection = subTypes.Selection)

  Catch e1 As Exception
     _result = False
  End Try
End Sub

public bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void CaptureSubTypesExample()
{
   string name, friendlyName;
   int selection;

   // reference the capture control
   CaptureCtrl capturectrl = _form.CaptureCtrl;

   // select a video device, use your device name here instead of Analog
   if (capturectrl.VideoDevices["Analog"] == null)
      throw new Exception("No Analog video tuner device available");

   capturectrl.VideoDevices["Analog"].Selected = true;

   // get the audio inputs object
   CaptureSubTypes subTypes = capturectrl.VideoCaptureSubTypes;

   // save the current subtype selection
   selection = subTypes.Selection;

   try
   {
      // select an capture subtype by name for MPEG2Video if available
      if (subTypes[Constants.MEDIASUBTYPE_MPEG2Video] != null
         && capturectrl.VideoCaptureStreamType == Constants.MEDIATYPE_Stream)
      {
         subTypes[Constants.MEDIASUBTYPE_MPEG2Video].Selected = true;
      }
      else // else try YUY2
      if (subTypes[Constants.MEDIASUBTYPE_YUY2] != null)
      {
         subTypes[Constants.MEDIASUBTYPE_YUY2].Selected = true;
      }

      foreach (CaptureSubType cst in subTypes)
      {
         // get the subtype properties
         name = cst.Name;
         friendlyName = cst.FriendlyName;

         // if we found the video tuner input
         if (friendlyName == "YUY2")
         {
            // select it and break
            cst.Selected = true;
            break;
         }
      }

      // set the result to what we expect
      _result = (selection == subTypes.Selection);

   }
   catch (Exception)
   {
      _result = false;
   }
}