DeleteBitmapValue Example for Visual Basic

Private Sub TestProcReplaceBitmap()
    Dim nRet As Integer
    Dim Process As New LEADRasterProcess

    LEADDICOM1.EnableMethodErrors = False

    'move to the first image element
    nRet = LEADDICOM1.FindFirstElement (TAG_PIXEL_DATA, False)
    'get the first image
    nRet = LEADDICOM1.GetBitmapValue (0, 0, ORDER_BGR, 0)
    LEADRasterView1.Raster.Bitmap = LEADDICOM1.Bitmap
    'flip the image
    Process.Flip LEADRasterView1.Raster

    'delete the first image from the dataset
    nRet = LEADDICOM1.DeleteBitmapValue(0, 1)

    'now update the list with the flipped image
    nRet = LEADDICOM1.InsertBitmapValue (LEADRasterView1.Raster.Bitmap, 0, DICOM_IMAGE_COMPRESSION_NONE, DICOM_IMAGE_PHOTOMETRIC_RGB, 0, 0, 0)
End Sub