J2KTargetFileSize example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
'This example uses the predefined variable "LEADRasterView1" of type "AxLEADRasterView" from "LEADTOOLS Toolkit".
Private Sub TestJ2KTargetFileSize ()
   LEADRasterView1.Raster.CreateBitmap(100, 100, 24)

   LEADDICOM1.InitDS(LTDICLib.DicomClassConstants.DICOM_CLASS_CR_IMAGE_STORAGE, LTDICLib.DicomDataSetFlags.DS_EXPLICIT_VR + LTDICLib.DicomDataSetFlags.DS_METAHEADER_ABSENT + LTDICLib.DicomDataSetFlags.DS_LITTLE_ENDIAN)
   'insert the image into the element
   LEADDICOM1.Bitmap = LEADRasterView1.Raster.Bitmap
   ' Use the Compression ratio
   LEADDICOM1.J2KOptions.J2KCompressionControl = LTDICLib.DicomJ2KCompressionControl.DICOM_J2K_COMP_TARGETSIZE
   LEADDICOM1.J2KOptions.J2KTargetFileSize = 15 * 1024
   'set the bitmap
   LEADDICOM1.SetBitmapValue(LTDICLib.DicomImageCompressionConstants.DICOM_IMAGE_COMPRESSION_J2K_LOSSY, LTDICLib.DicomImagePhotometricConstants.DICOM_IMAGE_PHOTOMETRIC_MONOCHROME2, 0, 0, 0)

End Sub