InsertBitmapListValue 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".
'This example uses the predefined variable "LEADRasterView1" of type "AxLEADRasterView" from "LEADTOOLS Toolkit".
Private Sub TestInsertBitmapListValue()
   Dim nRet As Short
   Dim IO As New LTRASTERIOLib.LEADRasterIO
   Dim Process As New LTRASTERPROCLib.LEADRasterProcess

   LEADDICOM1.EnableMethodErrors = False

   'move to the first image element and delete what's there
   nRet = LEADDICOM1.FindFirstElement(LTDICLib.DicomDataSetTagConstants9.TAG_PIXEL_DATA, False)
   nRet = LEADDICOM1.DeleteElement()
   nRet = LEADDICOM1.InsertElement (False, LTDICLib.DicomDataSetTagConstants9.TAG_PIXEL_DATA, LTDICLib.DicomVRCodeConstants.VR_OB, False, 0)

   'load an image
   IO.Load(LEADRasterView1.Raster, "d:\lead14\dist\images\image1.cmp", 0, 1, 1)
   MessageBox.Show("Image loaded from File - Wait")

   'create a bitmap list
   LEADRasterView2.Raster.InsertBitmapListItem(0, LEADRasterView1.Raster.Bitmap)
   Process.Flip(LEADRasterView1.Raster)
   LEADRasterView2.Raster.InsertBitmapListItem(1, LEADRasterView1.Raster.Bitmap)
   Process.Reverse(LEADRasterView1.Raster)
   LEADRasterView2.Raster.InsertBitmapListItem(2, LEADRasterView1.Raster.Bitmap)

   'insert the image list into the element
   nRet = LEADDICOM1.InsertBitmapListValue(LEADRasterView2.Raster.BitmapList, 0, LTDICLib.DicomImageCompressionConstants.DICOM_IMAGE_COMPRESSION_NONE, LTDICLib.DicomImagePhotometricConstants.DICOM_IMAGE_PHOTOMETRIC_RGB, 0, 0, 0)

   If (nRet <> 0) Then
      MessageBox.Show("Error")
      Exit Sub
   End If
   MessageBox.Show("ImageList inserted into Data Set - Wait")

End Sub