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