ICImagingControl.VideoNorms Property

Public VideoNorms As VideoNorms

Run time only, read only. Only available when a device is open and valid.

This example displays all available video norms supported by the current selected video capture device in a combo box. If no video norms are availalbe, the text "n/a" will be displayed in the combo box. In this case the combo box will be disabled. If a device is valid, it must have a video norm anyway. The combo box for the video norms is named "cboVideoNorm" in this example.

Private Sub UpdateVideoNorms()
    Dim Name As String
    Dim VidNrmCol As VideoNorms
    Dim Item As Variant
    Dim Idx As Long

    Idx = -1
    Set VidNrmCol = ImagingControl.VideoNorms

    cboVideoNorm.Clear
    If VidNrmCol.Count > 0 Then
        ' If video norms have been found, add them to the
        ' combo box.
        For Each Item In VidNrmCol
            cboVideoNorm.AddItem Item.Name
        Next

        ' Get the previously selected video norm.
        cboVideoNorm.Enabled = True
        Name = ImagingControl.VideoNorm

        Idx = VidNrmCol.FindIndex(Name)
        If Idx <> -1 Then
            cboVideoNorm.ListIndex = Idx - 1
        Else
            cboVideoNorm.ListIndex = 0
        End If
    Else
        ' No video norms have been found.
        cboVideoNorm.AddItem "n/a"
        cboVideoNorm.Enabled = False
        cboVideoNorm.ListIndex = 0
    End If
End Sub

A complete example of how to get the video capture device properties can be found in Making Device Settings.