Public Overridable Property WMProfile As WMProfile

Dim instance As CaptureCtrl
Dim value As WMProfile
 
instance.WMProfile = value
 
value = instance.WMProfile

public virtual WMProfile WMProfile {get; set;}

public:
virtual property WMProfile^ WMProfile {
   WMProfile^ get();
   void set (    WMProfile^ value);
}

Public _result As Boolean = False
      Public _form As CaptureCtrlForm = New CaptureCtrlForm()
      Public Sub WMProfileExample()
         ' reference the capture control
         Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_Source.avi")

         Try
            ' reference the profile if available
            Dim CurrentProfile As WMProfile = capturectrl.WMProfile

            If Not CurrentProfile Is Nothing Then
               MessageBox.Show(_form, CurrentProfile.Name & " is the currently selected profile.", "Settings")
            Else
               MessageBox.Show(_form, "There are currently no profiles associated with this capture object", "Settings")
            End If
         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

Public NotInheritable Class LEAD_VARS
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media"
End Class

public bool _result = false;
      public CaptureCtrlForm _form = new CaptureCtrlForm();
      public void WMProfileExample()
      {
         // reference the capture control
         CaptureCtrl capturectrl = _form.CaptureCtrl;
         string inFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_Source.avi");

         try
         {
            // reference the profile if available
            WMProfile CurrentProfile = capturectrl.WMProfile;

            if (CurrentProfile != null)
               MessageBox.Show(_form, CurrentProfile.Name + " is the currently selected profile.", "Settings");
            else
               MessageBox.Show(_form, "There are currently no profiles associated with this capture object", "Settings");
         }
         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();
      }

static class LEAD_VARS
{
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media";
}