SaveJ2KUseColorTransform Example for Visual Basic

Dim nRet As Integer
Dim RasterIO As New LEADRasterIO
Dim LEADDlgFile1 As New LEADRasterDlgFile
   LEADDlgFile1.DialogTitle = "Save a File"
   LEADDlgFile1.FileDlgFlags = 0
   LEADDlgFile1.InitialDir = "C:\" 
   LEADDlgFile1.UIFlags = SAVE_SHOW_FILEOPTIONS_PROGRESSIVE Or _
                           SAVE_SHOW_FILEOPTIONS_MULTIPAGE Or _
                           SAVE_SHOW_FILEOPTIONS_STAMP Or _
                           SAVE_SHOW_FILEOPTIONS_QFACTOR Or _
                           SAVE_SHOW_FILEOPTIONS_J2KOPTIONS Or _
                           SAVE_SHOW_FILEOPTIONS_BASICJ2KOPTIONS
   LEADDlgFile1.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = LEADDlgFile1.ShowSaveDlg (hWnd) 
   If (nRet = 0 And LEADDlgFile1.DialogStatus = DLG_OK) Then
   If (LEADDlgFile1.SaveFormat = FILE_J2K) Or (LEADDlgFile1.SaveFormat = FILE_JP2) Then
         RasterIO.J2KUseColorTransform = LEADDlgFile1.SaveJ2KUseColorTransform
         RasterIO.J2KDerivedQuantization = LEADDlgFile1.SaveJ2KDerivedQuantization
         RasterIO.J2KCompressionControl = LEADDlgFile1.SaveJ2KCompressionControl
         RasterIO.J2KCompressionRatio = LEADDlgFile1.SaveJ2KCompressionRatio
         RasterIO.J2KTargetFileSize = LEADDlgFile1.SaveJ2KTargetFileSize
         RasterIO.J2KXOsiz = LEADDlgFile1.SaveJ2KXOsiz
         RasterIO.J2KYOsiz = LEADDlgFile1.SaveJ2KYOsiz
         RasterIO.J2KXTsiz = LEADDlgFile1.SaveJ2KXTsiz
         RasterIO.J2KYTsiz = LEADDlgFile1.SaveJ2KYTsiz
         RasterIO.J2KXTOsiz = LEADDlgFile1.SaveJ2KXTOsiz
         RasterIO.J2KYTOsiz = LEADDlgFile1.SaveJ2KYTOsiz
         RasterIO.J2KDecompLevel = LEADDlgFile1.SaveJ2KDecompLevel
         RasterIO.J2KProgressOrder = LEADDlgFile1.SaveJ2KProgressOrder
         RasterIO.J2KCodBlockWidth = LEADDlgFile1.SaveJ2KCodBlockWidth
         RasterIO.J2KCodBlockHeight = LEADDlgFile1.SaveJ2KCodBlockHeight
         RasterIO.J2KCBS_SelectiveACBypass = LEADDlgFile1.SaveJ2KCBS_SelectiveACBypass
         RasterIO.J2KCBS_ResetContextOnBoundaries = LEADDlgFile1.SaveJ2KCBS_ResetContextOnBoundaries
         RasterIO.J2KCBS_TerminationOnEachPass = LEADDlgFile1.SaveJ2KCBS_TerminationOnEachPass
         RasterIO.J2KCBS_VerticallyCausalContext = LEADDlgFile1.SaveJ2KCBS_VerticallyCausalContext
         RasterIO.J2KCBS_PredictableTermination = LEADDlgFile1.SaveJ2KCBS_PredictableTermination
         RasterIO.J2KCBS_ErrorResilienceSymbol = LEADDlgFile1.SaveJ2KCBS_ErrorResilienceSymbol
         RasterIO.J2KGuardBits = LEADDlgFile1.SaveJ2KGuardBits
         RasterIO.J2KDerivedBaseMantissa = LEADDlgFile1.SaveJ2KDerivedBaseMantissa
         RasterIO.J2KDerivedBaseExponent = LEADDlgFile1.SaveJ2KDerivedBaseExponent
         RasterIO.J2KUseSOPMarker = LEADDlgFile1.SaveJ2KUseSOPMarker
         RasterIO.J2KUseEPHMarker = LEADDlgFile1.SaveJ2KUseEPHMarker

         RasterIO.Save LEADRasterView1.Raster, _
                        LEADDlgFile1.FileName, _
                        LEADDlgFile1.SaveFormat, _
                        LEADDlgFile1.SaveBitsPerPixel, _
                        LEADDlgFile1.SaveQFactor, _
                        LEADDlgFile1.SaveMulti

      End If
   End If
End Sub