ltmmAnalogVideoDecoder.AvailableTVFormats Example for Visual Basic

Private Sub mnAnalogVideoDecoder_Click()
   Dim lSupportFormats As Long
   Dim lTVFormat As Long
   Dim lLines As Long
   Dim vLocked As Boolean
   Dim vVCRLocked As Boolean
   Dim vEnable As Boolean   
   
   If LTMMCapture.AnalogVideoDecoder Is Nothing Then
        End
    End If
    
   lSupportFormats = LTMMCapture.AnalogVideoDecoder.AvailableTVFormats
   
   lTVFormat = LTMMCapture.AnalogVideoDecoder.TVFormat
   If lTVFormat <> ltmmAnalogVideo_NTSC_M And lSupportFormats & ltmmAnalogVideo_NTSC_M Then
      LTMMCapture.AnalogVideoDecoder.TVFormat = ltmmAnalogVideo_NTSC_M
    End If
   vLocked = LTMMCapture.AnalogVideoDecoder.HorizontalLocked

   vVCRLocked = LTMMCapture.AnalogVideoDecoder.VCRHorizontalLocking
   If vVCRLocked = VARIANT_FALSE Then
      LTMMCapture.AnalogVideoDecoder.VCRHorizontalLocking = True
   End If

   lLines = LTMMCapture.AnalogVideoDecoder.NumberOfLines
   vEnable = LTMMCapture.AnalogVideoDecoder.OutputEnable
   If vEnable = VARIANT_FALSE Then
      LTMMCapture.AnalogVideoDecoder.OutputEnable = True
   End If
End Sub