Public Overridable ReadOnly Property VideoWindow As IntPtr

Dim instance As PlayCtrl
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 PlayCtrlForm = New PlayCtrlForm()
      Public Sub VideoWindowExample()
         ' reference the play control
         Dim playctrl As PlayCtrl = _form.PlayCtrl

         ' input file
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi")

         Try
            ' turn off auto start
            playctrl.AutoStart = False

            ' set the source file
            playctrl.SourceFile = inFile

            ' get the video window handle
            Dim handle As IntPtr = playctrl.VideoWindow

            ' get the video and video window info
            Dim vwt As Single = playctrl.VideoWindowTop
            Dim vwl As Single = playctrl.VideoWindowLeft
            Dim vwh As Single = playctrl.VideoWindowHeight
            Dim vww As Single = playctrl.VideoWindowWidth
            Dim vh As Single = playctrl.VideoHeight
            Dim vw As Single = playctrl.VideoWidth

            Dim scm As ScaleMode = playctrl.ScaleMode
            Dim sch As Single = playctrl.ScaleHeight
            Dim scw As Single = playctrl.ScaleWidth
            Dim sct As Single = playctrl.ScaleTop
            Dim scl As Single = playctrl.ScaleLeft

            Dim sm As SizeMode = playctrl.VideoWindowSizeMode
            Dim isFullScreen As Boolean = playctrl.FullScreenMode

            ' check sizes for sizemode setting
            If vw > vww AndAlso vh > vwh AndAlso sm <> SizeMode.Fit Then
               playctrl.VideoWindowSizeMode = SizeMode.Fit
            ElseIf vw < vww AndAlso vh < vwh Then
               playctrl.VideoWindowSizeMode = SizeMode.Stretch
            End If

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

            ' set the result to what we expect
            _result = (handle <> Nothing)

            ' run the video
            playctrl.Run()
         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 playctrl.State = PlayState.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 PlayCtrlForm _form = new PlayCtrlForm();
      public void VideoWindowExample()
      {
         // reference the play control
         PlayCtrl playctrl = _form.PlayCtrl;

         // input file
         string inFile = Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi");

         try
         {
            // turn off auto start
            playctrl.AutoStart = false;

            // set the source file
            playctrl.SourceFile = inFile;

            // get the video window handle
            IntPtr handle = playctrl.VideoWindow;

            // get the video and video window info
            float vwt = playctrl.VideoWindowTop;
            float vwl = playctrl.VideoWindowLeft;
            float vwh = playctrl.VideoWindowHeight;
            float vww = playctrl.VideoWindowWidth;
            float vh = playctrl.VideoHeight;
            float vw = playctrl.VideoWidth;

            ScaleMode scm = playctrl.ScaleMode;
            float sch = playctrl.ScaleHeight;
            float scw = playctrl.ScaleWidth;
            float sct = playctrl.ScaleTop;
            float scl = playctrl.ScaleLeft;

            SizeMode sm = playctrl.VideoWindowSizeMode;
            bool isFullScreen = playctrl.FullScreenMode;

            // check sizes for sizemode setting
            if (vw > vww && vh > vwh && sm != SizeMode.Fit)
               playctrl.VideoWindowSizeMode = SizeMode.Fit;
            else if (vw < vww && vh < vwh)
               playctrl.VideoWindowSizeMode = SizeMode.Stretch;

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

            // set the result to what we expect
            _result = (handle != null);

            // run the video
            playctrl.Run();
         }
         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 (playctrl.State == PlayState.Running)
            Application.DoEvents();
      }

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