CurrentTime Property

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As PlayCtrlForm = New PlayCtrlForm() 
Public _playctrl As PlayCtrl 
 
Public Sub IsAudioStreamEnabledExample() 
   ' reference the play control 
   _playctrl = _form.PlayCtrl 
 
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "VIDEO_TS\VIDEO_TS.IFO") 
 
   Try 
      ' set auto start off 
      _playctrl.AutoStart = False 
 
      ' use DVDSource 
      _playctrl.UseDVDSource = True 
 
      ' set the input file 
      _playctrl.SourceFile = inFile 
 
      ' check the DVD options 
      DvdInfoCheck() 
 
      ' play it 
      _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 
 
' check DVD properties and info 
Private Sub DvdInfoCheck() 
   Dim bstrVal As String 
   Dim val As Integer 
   Dim button As Integer = _playctrl.DvdController.CurrentButton 
 
   val = _playctrl.DvdController.GetButtonWidth(button) 
   val = _playctrl.DvdController.GetButtonHeight(button) 
   val = _playctrl.DvdController.GetButtonLeft(button) 
   val = _playctrl.DvdController.GetButtonTop(button) 
 
   val = _playctrl.DvdController.DefaultMenuLanguage 
   _playctrl.DvdController.DefaultMenuLanguage = 1033 
   val = _playctrl.DvdController.GetNumberOfChapters(0) 
   val = _playctrl.DvdController.TotalTitleTime 
 
   Dim tcFlags As DVDTimecodeFlags = _playctrl.DvdController.TitleTimecodeFlags 
 
   val = _playctrl.DvdController.CurrentAngle 
   If _playctrl.DvdController.AnglesAvailable > 1 Then 
      _playctrl.DvdController.CurrentAngle = 2 
   End If 
 
   Dim userOp As DVDValidUserOp = _playctrl.DvdController.CurrentUOPS 
   Dim audioLang As Long = _playctrl.DvdController.GetAudioLanguage(0) 
 
   val = _playctrl.DvdController.CurrentAudioStream 
   If _playctrl.DvdController.AudioStreamsAvailable > 1 Then 
      _playctrl.DvdController.CurrentAudioStream = 2 
   End If 
 
   val = _playctrl.DvdController.CurrentTime 
   val = _playctrl.DvdController.CurrentVolume 
   val = _playctrl.DvdController.VolumesAvailable 
   val = _playctrl.DvdController.TitlesAvailable 
   Dim enabled As Boolean = _playctrl.DvdController.IsAudioStreamEnabled(0) 
   val = _playctrl.DvdController.DefaultAudioLanguage 
 
   _playctrl.DvdController.SelectDefaultAudioLanguage(1033, DVDAudioLangExt.Captions) 
 
   Dim directory As String = _playctrl.DvdController.DVDDirectory 
   val = _playctrl.DvdController.CurrentSubpictureStream 
   val = _playctrl.DvdController.SubpictureStreamsAvailable 
   If (val > 1) Then 
      _playctrl.DvdController.CurrentSubpictureStream = 1 
   End If 
   val = _playctrl.DvdController.DefaultSubpictureLanguage 
   _playctrl.DvdController.SelectDefaultSubpictureLanguage(1033, DVDSubpictureLangExt.Caption_Normal) 
 
   val = _playctrl.DvdController.CurrentTitle 
 
   Dim subPicLangExt As DVDSubpictureLangExt = _playctrl.DvdController.DefaultSubpictureLanguageExt 
 
   Dim audioLangExt As DVDAudioLangExt = _playctrl.DvdController.DefaultAudioLanguageExt 
   Dim subpicLang As Long = _playctrl.DvdController.GetSubpictureLanguage(0) 
   Dim subPicStream As Boolean = _playctrl.DvdController.IsSubpictureStreamEnabled(0) 
 
   val = _playctrl.DvdController.GetDVDTextLanguageLCID(0) 
   val = _playctrl.DvdController.DVDTextNumberOfLanguages 
   val = _playctrl.DvdController.GetGPRM(0) 
   _playctrl.DvdController.SetGPRM(0, 1) 
 
   val = _playctrl.DvdController.GetDVDTextNumberOfStrings(0) 
   val = _playctrl.DvdController.ButtonsAvailable 
   val = _playctrl.DvdController.PlayerParentalLevel 
   val = _playctrl.DvdController.PlayerParentalCountry 
   Dim ppCountry As String = String.Format("{0}{1}", CChar(ChrW(val And &HFF)), CChar(ChrW(val >> 8))) 
 
   If ppCountry <> "US" Then 
      val = CInt(AscW("U"c)) 
      val += (CInt(AscW("S"c)) << 8) 
      _playctrl.DvdController.SelectParentalCountry(val, "user", "pwd") 
   End If 
   val = _playctrl.DvdController.GetTitleParentalLevels(-1) 
   _playctrl.DvdController.SelectParentalLevel(9, "user", "pwd") 
 
   Dim domain As DVDDomain = _playctrl.DvdController.CurrentDomain 
   Dim diskSide As DVDDiscSide = _playctrl.DvdController.CurrentDiscSide 
 
   val = _playctrl.DvdController.CurrentChapter 
   Dim textStrType As DVDTextStringType = _playctrl.DvdController.GetDVDTextStringType(0, 0) 
   If (Not _playctrl.DvdController.SubpictureOn) Then 
      _playctrl.DvdController.SubpictureOn = True 
   End If 
 
   val = _playctrl.DvdController.GetSPRM(0) 
   bstrVal = _playctrl.DvdController.GetDVDTextString(0, 0) 
   bstrVal = _playctrl.DvdController.DVDUniqueID 
End Sub 
 
' menu event helpers for DVD navigation and control 
Private Sub mnAcceptParentalLevelChange_Click() 
   _playctrl.DvdController.AcceptParentalLevelChange(True) 
End Sub 
 
Private Sub mnActivateAtPosition_Click() 
   _playctrl.DvdController.ActivateAtPosition(10, 10) 
End Sub 
 
Private Sub mnActivateButton_Click() 
   _playctrl.DvdController.ActivateButton() 
End Sub 
 
Private Sub mnChangeDVDRegion_Click() 
   _playctrl.DvdController.ChangeDVDRegion(_form) 
End Sub 
 
Private Sub mnNotifyParentalLevelChange_Click() 
   _playctrl.DvdController.NotifyParentalLevelChange(True) 
End Sub 
 
Private Sub mnPause_Click() 
   _playctrl.DvdController.Pause(True) 
End Sub 
 
Private Sub mnPlayAtInTitle_Click() 
   _playctrl.DvdController.PlayAtTimeInTitle(1, 10000000) 
End Sub 
 
Private Sub mnPlayAtTime_Click() 
   _playctrl.DvdController.PlayAtTime(10000000) 
End Sub 
 
Private Sub mnPlaybackword_Click() 
   _playctrl.DvdController.PlayBackwards(5) 
End Sub 
 
Private Sub mnPlayChapter_Click() 
   _playctrl.DvdController.PlayChapter(1) 
End Sub 
 
Private Sub mnPlaychapterautostop_Click() 
   _playctrl.DvdController.PlayChaptersAutoStop(1, 2, 5) 
End Sub 
 
Private Sub mnPlaychapterintitle_Click() 
   _playctrl.DvdController.PlayChapterInTitle(1, 3) 
End Sub 
 
Private Sub mnPlayfowrward_Click() 
   _playctrl.DvdController.PlayForwards(5) 
End Sub 
 
Private Sub mnPlayNextChapter_Click() 
   _playctrl.DvdController.PlayNextChapter() 
End Sub 
 
Private Sub mnPlayperiod_Click() 
   _playctrl.DvdController.PlayPeriodInTitleAutoStop(1, 30, 120) 
End Sub 
 
Private Sub mnPlayPrevChapter_Click() 
   _playctrl.DvdController.PlayPrevChapter() 
End Sub 
 
Private Sub mnPlaytitle_Click() 
   _playctrl.DvdController.PlayTitle(1) 
End Sub 
 
Private Sub mnReplayChapter_Click() 
   _playctrl.DvdController.ReplayChapter() 
End Sub 
 
Private Sub mnResume_Click() 
   _playctrl.DvdController.Resume() 
End Sub 
 
Private Sub mnReturnfromsubmenu_Click() 
   _playctrl.DvdController.ReturnFromSubmenu() 
End Sub 
 
Private Sub mnSelectAndActivateButton_Click() 
   _playctrl.DvdController.SelectAndActivateButton(1) 
End Sub 
 
Private Sub mnSelectAtPosition_Click() 
   _playctrl.DvdController.SelectAtPosition(10, 10) 
End Sub 
 
Private Sub mnSelectButton_Click() 
   _playctrl.DvdController.SelectButton(1) 
End Sub 
 
Private Sub mnSelectRelativeButton_Click() 
   _playctrl.DvdController.SelectRelativeButton(DVDRelativeButton.Right) 
End Sub 
 
Private Sub mnSetDVDDirectory_Click() 
   _playctrl.DvdController.DVDDirectory = "e:\video_ts" 
End Sub 
 
Private Sub mnShowMenu_Click() 
   _playctrl.DvdController.ShowMenu(DVDMenuId.Root) 
End Sub 
 
Private Sub mnStillOff_Click() 
   _playctrl.DvdController.StillOff() 
End Sub 
 
Private Sub mnStop_Click() 
   _playctrl.DvdController.Stop() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 20\Media" 
End Class