J2KCompressionControl 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 TestJ2KCompressionControl()
   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 Q factor for compression control.
   LEADDICOM1.J2KOptions.J2KCompressionControl = LTDICLib.DicomJ2KCompressionControl.DICOM_J2K_COMP_QFACTOR

   'set the bitmap
   LEADDICOM1.SetBitmapValue(LTDICLib.DicomImageCompressionConstants.DICOM_IMAGE_COMPRESSION_J2K_LOSSY, LTDICLib.DicomImagePhotometricConstants.DICOM_IMAGE_PHOTOMETRIC_MONOCHROME2, 0, 100, 0)
End Sub