ShowMenu Method

'Declaration
 
Public Sub ShowMenu( _
   ByVal menu As DVDMenuId _
) 

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 175\Media";
End Class