Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As PlayCtrlForm = New PlayCtrlForm()
Public Sub KeyPressesExample()
   Dim playctrl As PlayCtrl = _form.PlayCtrl
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi")
   Try
      ' turn off autostart
      playctrl.AutoStart = False
      ' set the source media file
      playctrl.SourceFile = inFile
      ' subscribe to the key events
      AddHandler playctrl.KeyDown, AddressOf KeyDown_Helper
      AddHandler playctrl.KeyUp, AddressOf KeyUp_Helper
      AddHandler playctrl.KeyPress, AddressOf KeyPress_Helper
      ' play it now!
      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 OrElse playctrl.State = PlayState.Paused
      Application.DoEvents()
   Loop
   ' clean up event handlers
   RemoveHandler playctrl.KeyDown, AddressOf KeyDown_Helper
   RemoveHandler playctrl.KeyUp, AddressOf KeyUp_Helper
   RemoveHandler playctrl.KeyPress, AddressOf KeyPress_Helper
End Sub
Private Sub KeyPress_Helper(ByVal sender As Object, ByVal e As Leadtools.Multimedia.KeyPressEventArgs)
   ' pause if running
   If e.keyAscii = CShort("p") AndAlso _form.PlayCtrl.State = PlayState.Running Then
      ' pause playback
      _form.PlayCtrl.Pause()
      ' set result
      _result = True
   Else ' run if paused
      If e.keyAscii = CShort("r") AndAlso _form.PlayCtrl.State = PlayState.Paused Then
         ' resume playback
         _form.PlayCtrl.Run()
         ' set result
         _result = True
      Else ' run if paused
         If e.keyAscii = CShort("s") AndAlso (_form.PlayCtrl.State = PlayState.Paused _
                                              OrElse _form.PlayCtrl.State = PlayState.Running) Then
            ' resume playback
            _form.PlayCtrl.Stop()
            ' set result
            _result = True
         End If
      End If
   End If
End Sub
Private Sub KeyUp_Helper(ByVal sender As Object, ByVal e As KeyUpEventArgs)
   ' do something for key up
End Sub
Public Sub KeyDown_Helper(ByVal sender As Object, ByVal e As KeyDownEventArgs)
   ' do something for key down
End Sub
Public NotInheritable Class LEAD_VARS
Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"
End Class
             
   
     
            using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public PlayCtrlForm _form = new PlayCtrlForm();
public void KeyPressesExample()
{
   PlayCtrl playctrl = _form.PlayCtrl;
   string inFile =Path.Combine(LEAD_VARS.MediaDir,"PlayCtrl_Source.avi");
   try
   {
      // turn off autostart
      playctrl.AutoStart = false;
      // set the source media file
      playctrl.SourceFile = inFile;
      // subscribe to the key events
      playctrl.KeyDown += KeyDown_Helper;
      playctrl.KeyUp += KeyUp_Helper;
      playctrl.KeyPress += KeyPress_Helper;
      // play it now!
      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 || playctrl.State == PlayState.Paused)
      Application.DoEvents();
   // clean up event handlers
   playctrl.KeyDown -= KeyDown_Helper;
   playctrl.KeyUp -= KeyUp_Helper;
   playctrl.KeyPress -= KeyPress_Helper;
}
void KeyPress_Helper(object sender, Leadtools.Multimedia.KeyPressEventArgs e)
{
   // pause if running
   if (e.keyAscii == 'p' && _form.PlayCtrl.State == PlayState.Running)
   {
      // pause playback
      _form.PlayCtrl.Pause();
      // set result
      _result = true;
   }
   else // run if paused
      if (e.keyAscii == 'r' && _form.PlayCtrl.State == PlayState.Paused)
      {
         // resume playback
         _form.PlayCtrl.Run();
         // set result
         _result = true;
      }
      else // run if paused
         if (e.keyAscii == 's' && (_form.PlayCtrl.State == PlayState.Paused || _form.PlayCtrl.State == PlayState.Running))
         {
            // resume playback
            _form.PlayCtrl.Stop();
            // set result
            _result = true;
         }
}
void KeyUp_Helper(object sender, KeyUpEventArgs e)
{
   // do something for key up
}
public void KeyDown_Helper(object sender, KeyDownEventArgs e)
{
   // do something for key down
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media";
}