LEADTOOLS Multimedia (Leadtools.Multimedia assembly)

VideoWindowTop Property (PlayCtrl)

Show in webframe
Example 



Gets the top position of the video window.
Syntax
'Declaration
 
Public Overridable ReadOnly Property VideoWindowTop As Single
'Usage
 
Dim instance As PlayCtrl
Dim value As Single
 
value = instance.VideoWindowTop
public virtual float VideoWindowTop {get;}
public:
virtual property float VideoWindowTop {
   float get();
}

Property Value

A value representing the top position of the video window.
Remarks
The value is in the units specified by the ScaleMode property.
Example
Copy Code  
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:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media"
End Class
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:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media";
}
Requirements

Target Platforms

See Also

Reference

PlayCtrl Class
PlayCtrl Members
VideoWindowLeft Property
VideoWindowWidth Property
VideoWindowHeight Property

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.

Leadtools.Multimedia requires a Multimedia or Multimedia Suite license and unlock key. For more information, refer to: LEADTOOLS Toolkit Features