Leadtools.Multimedia Namespace > PlayCtrl Class : Window Property |
'Declaration Public Overridable ReadOnly Property Window As IntPtr
public virtual IntPtr Window {get;}
Imports Leadtools Imports Leadtools.Multimedia Imports LeadtoolsMultimediaExamples.Fixtures Public Sub WindowExample() ' 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 ' set the input file playctrl.SourceFile = inFile ' get the control handle Dim handle As IntPtr = playctrl.Window ' set the result to what we expect _result = (handle <> Nothing) ' stop the playback playctrl.Stop() 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 void WindowExample() { // reference the play control PlayCtrl playctrl = _form.PlayCtrl; // input file string inFile = Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi"); try { // set the input file playctrl.SourceFile = inFile; // get the control handle IntPtr handle = playctrl.Window; // set the result to what we expect _result = (handle != null); // stop the playback playctrl.Stop(); } 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"; }