ICImagingControl.AviCompressors Property

Public AviCompressors As AviCompressors

Run time only, read only.

This example displays all available compressors in a combo box. If no compressors are installed, the text "n/a" will be displayed in the combo box and it will be disabled. The combo box for the compessors is named "cboVideoCodec" in this example.

Private Sub Form_Load()
    Dim AviCompCollection As AviCompressors
    Set AviCompCollection = ICImagingControl1.AviCompressors

    cboVideoCodec.Clear
    If AviCompCollection.Count > 0 Then
        ' If compressors have been found, add them to the
        ' combo box.
        For Each Item In AviCompCollection
            cboVideoCodec.AddItem Item.Name
        Next
        cboVideoCodec.Enabled = True
    else
        ' No compressors have been found.
        cboVideoCodec.AddItem "n/a"
        cboVideoCodec.Enabled = False
    End If
    cboVideoCodec.ListIndex = 0
End Sub