CompressionType Example VB

This example uses the CompressionType property to determine the compression type of the image specified in the Image property.

Private Sub cmdCompType_Click()
    'Reads the CompressionType property to determine the
    'compression type of the image specified in the Image
    'property.
    Dim strImgCompType As String

    'Read the CompressionType and translate the value to a
    'corresponding string.
    Select Case ImgEdit1.CompressionType
      Case 0
        strImgCompType = "Unknown"
      Case 1
        strImgCompType = "No Compression"
      Case 2
        strImgCompType = "Group3(1D)"
      Case 3
        strImgCompType = "Group3(Modified Huffman)"
      Case 4
        strImgCompType = "PackBits"
      Case 5
        strImgCompType = "Group4(2D)"
      Case 6
        strImgCompType = "JPEG"
      Case 7
        strImgCompType = "RBA"
      Case 8
        strImgCompType = "Group3(2D)"
      Case 9
        strImgCompType = "LZW"
    End Select
    
    'Display the compression type on a form for
    'informational purposes, or to
    'allow modifications.
     frmInfo.lblImgInfo(0).Caption = strImgCompType
End Sub