ProgressivePasses Example for Visual Basic

Note: Also works with Access 95 and 97.

This example shows how to save and load a progressive file.

Dim RasterIO As New LEADRasterIO
' Save the current image as a progressive JPEG file.
RasterIO.ProgressivePasses = 8
RasterIO.Save LEADRasterView1.Raster, "d:\temp\TMP.jpg", _
                                      FILE_JFIF, 24, _
                                      200, SAVE_OVERWRITE
' Set properties to show progressive paints when we load.
LEADRasterView1.PaintWhileLoad = True
' Load the file we just saved.
RasterIO.ProgressivePasses = PROGRESSIVEPASSES_WHEN_MEANINGFUL
RasterIO.Load LEADRasterView1.Raster, "d:\temp\TMP.jpg", 0, 0, 1