Leadtools.Multimedia Namespace > PlayCtrl Class : VideoWindowTop Property |
public virtual float VideoWindowTop {get;}
'Declaration Public Overridable ReadOnly Property VideoWindowTop As Single
public virtual float VideoWindowTop {get;}
get_VideoWindowTop();
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 175\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 175\Media"; }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2