ltmmDVDControl.GetButtonAtPosition Example for Visual Basic

Private Sub mnDVDInfo_Click()
   Dim vEnabled As String
   Dim bstrVal As String
   Dim lVal As Long
   Dim lButton As Long

   lButton = LTMMPlay.DVDControl.CurrentButton
   lVal = LTMMPlay.DVDControl.GetButtonWidth(lButton) 
   MsgBox CStr(lVal), vbOKCancel, "ButtonWidth"
   
   lVal = LTMMPlay.DVDControl.GetButtonHeight(lButton) 
   MsgBox CStr(lVal), vbOKCancel, "ButtonHeight"
   
   lVal = LTMMPlay.DVDControl.GetButtonLeft(lButton) 
   MsgBox CStr(lVal), vbOKCancel, "ButtonLeft"
   
   lVal = LTMMPlay.DVDControl.GetButtonTop(lButton) 
   MsgBox CStr(lVal), vbOKCancel, "ButtonTop"

   lVal = LTMMPlay.DVDControl.DefaultMenuLanguage
   MsgBox CStr(lVal), vbOKCancel, "DefaultMenuLanguage"
   
   LTMMPlay.DVDControl.DefaultMenuLanguage = 1033

   lVal = LTMMPlay.DVDControl.GetNumberOfChapters(0) 
   MsgBox CStr(lVal), vbOKCancel, "NumberOfChapters"
   
   lVal = LTMMPlay.DVDControl.TotalTitleTime
   MsgBox CStr(lVal), vbOKCancel, "TotalTitleTime"

   lVal = LTMMPlay.DVDControl.TitleTimecodeFlags
   MsgBox CStr(lVal), vbOKCancel, "TitleTimecodeFlags"

   lVal = LTMMPlay.DVDControl.CurrentAngle
   MsgBox CStr(lVal), vbOKCancel, "CurrentAngle"

   lVal = LTMMPlay.DVDControl.AnglesAvailable
   MsgBox CStr(lVal), vbOKCancel, "AnglesAvailable"
   
   If lVal > 1 Then
      LTMMPlay.DVDControl.CurrentAngle = 2
   End If
   
   lVal = LTMMPlay.DVDControl.CurrentUOPS
   MsgBox CStr(lVal), vbOKCancel, "CurrentUOPS"
   
   lVal = LTMMPlay.DVDControl.GetAudioLanguage(0) 
   MsgBox CStr(lVal), vbOKCancel, "AudioLanguage"

   lVal = LTMMPlay.DVDControl.CurrentAudioStream
   MsgBox CStr(lVal), vbOKCancel, "CurrentAudioStream"
   
   lVal = LTMMPlay.DVDControl.AudioStreamsAvailable
   MsgBox CStr(lVal), vbOKCancel, "AudioStreamsAvailable"
   
   If lVal > 1 Then
      LTMMPlay.DVDControl.CurrentAudioStream = 2
   End If
   
   lVal = LTMMPlay.DVDControl.CurrentTime
   MsgBox CStr(lVal), vbOKCancel, "CurrentTime"
   
   lVal = LTMMPlay.DVDControl.CurrentVolume
   MsgBox CStr(lVal), vbOKCancel, "CurrentVolume"

   lVal = LTMMPlay.DVDControl.VolumesAvailable
   MsgBox CStr(lVal), vbOKCancel, "VolumesAvailable"

   lVal = LTMMPlay.DVDControl.TitlesAvailable
   MsgBox CStr(lVal), vbOKCancel, "TitlesAvailable"
   
   vEnabled = LTMMPlay.DVDControl.IsAudioStreamEnabled(0) 
   MsgBox CStr(vEnabled), vbOKCancel, "IsAudioStreamEnabled"

   lVal = LTMMPlay.DVDControl.DefaultAudioLanguage
   MsgBox CStr(lVal), vbOKCancel, "DefaultAudioLanguage"

   LTMMPlay.DVDControl.SelectDefaultAudioLanguage 1033, ltmmDVD_AUD_EXT_Captions

   bstrVal = LTMMPlay.DVDControl.DVDDirectory
   MsgBox bstrVal, vbOKCancel, "DefaultAudioLanguage"

   lVal = LTMMPlay.DVDControl.CurrentSubpictureStream
   MsgBox CStr(lVal), vbOKCancel, "CurrentSubpictureStream"

   lVal = LTMMPlay.DVDControl.SubpictureStreamsAvailable
   MsgBox CStr(lVal), vbOKCancel, "SubpictureStreamsAvailable"

   If lVal > 1 Then
      LTMMPlay.DVDControl.CurrentSubpictureStream = 1
   End If
   
   lVal = LTMMPlay.DVDControl.DefaultSubpictureLanguage
   MsgBox CStr(lVal), vbOKCancel, "DefaultSubpictureLanguage"
   
   LTMMPlay.DVDControl.SelectDefaultSubpictureLanguage 1033, ltmmDVD_SP_EXT_Caption_Normal
   
   lVal = LTMMPlay.DVDControl.CurrentTitle
   MsgBox CStr(lVal), vbOKCancel, "CurrentTitle"

   lVal = LTMMPlay.DVDControl.DefaultSubpictureLanguageExt
   MsgBox CStr(lVal), vbOKCancel, "DefaultSubpictureLanguageExt"
   
   lVal = LTMMPlay.DVDControl.DefaultAudioLanguageExt
   MsgBox CStr(lVal), vbOKCancel, "DefaultAudioLanguageExt"
   
   lVal = LTMMPlay.DVDControl.GetSubpictureLanguage(0) 
   MsgBox CStr(lVal), vbOKCancel, "SubpictureLanguage"
   
   vEnabled = LTMMPlay.DVDControl.IsSubpictureStreamEnabled(0) 
   MsgBox CStr(vEnabled), vbOKCancel, "SubpictureLanguage"
   
   lVal = LTMMPlay.DVDControl.GetDVDTextLanguageLCID(0) 
   MsgBox CStr(lVal), vbOKCancel, "DVDTextLanguageLCID"
   
   lVal = LTMMPlay.DVDControl.DVDTextNumberOfLanguages
   MsgBox CStr(lVal), vbOKCancel, "DVDTextNumberOfLanguages"
   
   lVal = LTMMPlay.DVDControl.GetGPRM(0) 
   MsgBox CStr(lVal), vbOKCancel, "GPRM"
   
   LTMMPlay.DVDControl.SetGPRM 0, 1

   lVal = LTMMPlay.DVDControl.GetDVDTextNumberOfStrings(0) 
   MsgBox CStr(lVal), vbOKCancel, "DVDTextNumberOfStrings"
   
   lVal = LTMMPlay.DVDControl.ButtonsAvailable
   MsgBox CStr(lVal), vbOKCancel, "ButtonsAvailable"
   
   lVal = LTMMPlay.DVDControl.PlayerParentalLevel
   MsgBox CStr(lVal), vbOKCancel, "PlayerParentalLevel"

   lVal = LTMMPlay.DVDControl.PlayerParentalCountry
   bstrVal = Chr(lVal And &HFF&)
   bstrVal = bstrVal + Chr(RightShift(lVal, 8)) 
   MsgBox bstrVal, vbOKCancel, "PlayerParentalCountry"
   If bstrVal <> "US" Then
      lVal = Asc("U")
      lVal = lVal + LeftShift(Asc("S"), 8) 
      LTMMPlay.DVDControl.SelectParentalCountry lVal, "", ""
   End If
   
   lVal = LTMMPlay.DVDControl.GetTitleParentalLevels(-1) 
   MsgBox CStr(lVal), vbOKCancel, "TitleParentalLevels"

   LTMMPlay.DVDControl.SelectParentalLevel ltmmDVD_PARENTAL_LEVEL_1, "", ""
   
   lVal = LTMMPlay.DVDControl.CurrentDomain
   MsgBox CStr(lVal), vbOKCancel, "CurrentDomain"
   
   lVal = LTMMPlay.DVDControl.CurrentDiscSide
   MsgBox CStr(lVal), vbOKCancel, "CurrentDiscSide"
   
   lVal = LTMMPlay.DVDControl.CurrentChapter
   MsgBox CStr(lVal), vbOKCancel, "CurrentChapter"
   
   lVal = LTMMPlay.DVDControl.GetDVDTextStringType(0, 0) 
   MsgBox CStr(lVal), vbOKCancel, "DVDTextStringType"
   
   vEnabled = LTMMPlay.DVDControl.SubpictureOn
   If vEnabled = True Then
      MsgBox "On", vbOKCancel, "SubpictureOn"
   Else
      MsgBox "Off", vbOKCancel, "SubpictureOn"
      LTMMPlay.DVDControl.SubpictureOn = True
   End If
   
   lVal = LTMMPlay.DVDControl.GetSPRM(0) 
   MsgBox CStr(lVal), vbOKCancel, "SPRM"

   bstrVal = LTMMPlay.DVDControl.GetDVDTextString(0, 0) 
   MsgBox bstrVal, vbOKCancel, "DVDTextString"
   
   bstrVal = LTMMPlay.DVDControl.DVDUniqueID
   MsgBox bstrVal, vbOKCancel, "DVDUniqueID"
   
End Sub

Private Sub mnAcceptParentalLevelChange_Click()
    LTMMPlay.DVDControl.AcceptParentalLevelChange True
End Sub

Private Sub mnActivateAtPosition_Click()
    LTMMPlay.DVDControl.ActivateAtPosition 10, 10
End Sub

Private Sub mnActivateButton_Click()
    LTMMPlay.DVDControl.ActivateButton
End Sub

Private Sub mnChangeDVDRegion_Click()
    LTMMPlay.DVDControl.ChangeDVDRegion hwnd
End Sub

Private Sub mnNotifyParentalLevelChange_Click()
    LTMMPlay.DVDControl.NotifyParentalLevelChange True
End Sub

Private Sub mnPause_Click()
    LTMMPlay.DVDControl.Pause True
End Sub

Private Sub mnPlayatintitle_Click()
    Dim lTime As Long
    
    lTime = 10
    lTime = LeftShift(lTime, 8) 
    
    LTMMPlay.DVDControl.PlayAtTimeInTitle 1, lTime
End Sub

Private Sub mnPlayAtTime_Click()
    Dim lTime As Long
    
    lTime = 10
    lTime = LeftShift(lTime, 8) 
    
    LTMMPlay.DVDControl.PlayAtTime lTime
End Sub

Private Sub mnPlaybackword_Click()
    LTMMPlay.DVDControl.PlayBackwards 5
End Sub

Private Sub mnPlayChapter_Click()
    LTMMPlay.DVDControl.PlayChapter 1
End Sub

Private Sub mnPlaychapterautostop_Click()
    LTMMPlay.DVDControl.PlayChaptersAutoStop 1, 2, 5
End Sub

Private Sub mnPlaychapterintitle_Click()
    LTMMPlay.DVDControl.PlayChapterInTitle 1, 3
End Sub

Private Sub mnPlayfowrward_Click()
    LTMMPlay.DVDControl.PlayForwards 5
End Sub

Private Sub mnPlayNextChapter_Click()
    LTMMPlay.DVDControl.PlayNextChapter
End Sub

Private Sub mnPlayperiod_Click()
    LTMMPlay.DVDControl.PlayPeriodInTitleAutoStop
End Sub

Private Sub mnPlayPrevChapter_Click()
    LTMMPlay.DVDControl.PlayPrevChapter
End Sub

Private Sub mnPlaytitle_Click()
    LTMMPlay.DVDControl.PlayTitle 1
End Sub

Private Sub mnReplayChapter_Click()
    LTMMPlay.DVDControl.ReplayChapter
End Sub

Private Sub mnResume_Click()
    LTMMPlay.DVDControl.Resume
End Sub

Private Sub mnReturnfromsubmenu_Click()
    LTMMPlay.DVDControl.ReturnFromSubmenu
End Sub

Private Sub mnSelectAndActivateButton_Click()
    LTMMPlay.DVDControl.SelectAndActivateButton 1
End Sub

Private Sub mnSelectAtPosition_Click()
    LTMMPlay.DVDControl.SelectAtPosition 10, 10
End Sub

Private Sub mnSelectButton_Click()
    LTMMPlay.DVDControl.SelectButton 1
End Sub

Private Sub mnSelectRelativeButton_Click()
    LTMMPlay.DVDControl.SelectRelativeButton ltmmDVD_Relative_Right
End Sub

Private Sub mnSetDVDDirectory_Click()
    LTMMPlay.DVDControl.DVDDirectory = "e:\\video_ts"
End Sub

Private Sub mnShowMenu_Click()
    LTMMPlay.DVDControl.ShowMenu ltmmDVD_MENU_Root
End Sub

Private Sub mnStillOff_Click()
    LTMMPlay.DVDControl.StillOff
End Sub

Private Sub mnStop_Click()
    LTMMPlay.DVDControl.Stop
End Sub