In This Topic ▼

VideoWindow Property

Summary

Gets the handle to the current video window.

Syntax

C++

public virtual IntPtr VideoWindow { get; }

Public Overridable ReadOnly Property VideoWindow As IntPtr

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

Property Value

An IntPtr value representing the video window handle.

Example

using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
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:\LEADTOOLS21\Media"; 
}

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
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:\LEADTOOLS21\Media" 
End Class