Public Overridable ReadOnly Property VideoWindow As IntPtr

Dim instance As ConvertCtrl
Dim value As IntPtr
 
value = instance.VideoWindow

public virtual IntPtr VideoWindow {get;}

public:
virtual property IntPtr VideoWindow {
   IntPtr get();
}

Public _result As Boolean = False
      Public _form As ConvertCtrlForm = New ConvertCtrlForm()
      Public Sub VideoWindowExample()
         ' reference the play control
         Dim convertctrl As ConvertCtrl = _form.ConvertCtrl

         ' input and output files
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi")
         Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_VideoWindowExample.avi")

         Try
            ' set the source for conversion
            convertctrl.SourceFile = inFile

            ' set the video and audio compressors
            convertctrl.VideoCompressors.Mpeg2.Selected = True
            convertctrl.AudioCompressors.AC3.Selected = True

            ' set the target output file and format
            convertctrl.TargetFile = outFile

            ' set the target output format
            convertctrl.TargetFormat = TargetFormatType.AVI

            ' enable preview
            convertctrl.Preview = True

            ' play it!
            convertctrl.StartConvert()

            ' get the video and video window info
            Dim vwt As Integer = convertctrl.VideoWindowTop
            Dim vwl As Integer = convertctrl.VideoWindowLeft
            Dim vwh As Integer = convertctrl.VideoWindowHeight
            Dim vww As Integer = convertctrl.VideoWindowWidth
            Dim vh As Integer = convertctrl.VideoHeight
            Dim vw As Integer = convertctrl.VideoWidth
            Dim sm As SizeMode = convertctrl.VideoWindowSizeMode
            Dim isFullScreen As Boolean = convertctrl.FullScreenMode

            If vw > vww AndAlso vh > vwh AndAlso sm <> SizeMode.Fit Then
               convertctrl.VideoWindowSizeMode = SizeMode.Fit
            ElseIf vw < vww AndAlso vh < vwh Then
               convertctrl.VideoWindowSizeMode = SizeMode.Stretch
            End If

            ' set the play control to cover the form's client area
            convertctrl.SetVideoWindowPos(50, 0, Me._form.ClientSize.Width, Me._form.ClientSize.Height)

            ' set the result
            _result = (convertctrl.VideoWindow <> IntPtr.Zero)
         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 convertctrl.State = ConvertState.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 ConvertCtrlForm _form = new ConvertCtrlForm();
      public void VideoWindowExample()
      {
         // reference the play control
         ConvertCtrl convertctrl = _form.ConvertCtrl;

         // input and output files
         string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi");
         string outFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_VideoWindowExample.avi");

         try
         {
            // set the source for conversion
            convertctrl.SourceFile = inFile;

            // set the video and audio compressors
            convertctrl.VideoCompressors.Mpeg2.Selected = true;
            convertctrl.AudioCompressors.AC3.Selected = true;

            // set the target output file and format
            convertctrl.TargetFile = outFile;

            // set the target output format
            convertctrl.TargetFormat = TargetFormatType.AVI;

            // enable preview
            convertctrl.Preview = true;

            // play it!
            convertctrl.StartConvert();

            // get the video and video window info
            int vwt = convertctrl.VideoWindowTop;
            int vwl = convertctrl.VideoWindowLeft;
            int vwh = convertctrl.VideoWindowHeight;
            int vww = convertctrl.VideoWindowWidth;
            int vh = convertctrl.VideoHeight;
            int vw = convertctrl.VideoWidth;
            SizeMode sm = convertctrl.VideoWindowSizeMode;
            bool isFullScreen = convertctrl.FullScreenMode;

            if (vw > vww && vh > vwh && sm != SizeMode.Fit)
               convertctrl.VideoWindowSizeMode = SizeMode.Fit;
            else if (vw < vww && vh < vwh)
               convertctrl.VideoWindowSizeMode = SizeMode.Stretch;

            // set the play control to cover the form's client area
            convertctrl.SetVideoWindowPos(50, 0, this._form.ClientSize.Width, this._form.ClientSize.Height);

            // set the result
            _result = (convertctrl.VideoWindow != IntPtr.Zero);
         }
         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 (convertctrl.State == ConvertState.Running)
            Application.DoEvents();
      }

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