SaveInterlaced example for Visual Basic

Note: Also works with Access 95 and 97.

'This example saves the current image as an interlaced GIF file, then loads the saved 'image with a paint-while-load effect that shows the interlaced behavior.
Dim szFile As String
Dim bRet As Boolean
Dim MyRasterIO As New LEADRasterIO
   
szFile = "c:\temp\test.gif"


'Save the current image as an interlaced GIF file.
MyRasterIO.SaveInterlaced= True
MyRasterIO.Save LEADRasterView1.Raster, szFile, FILE_GIF, 8, 1, SAVE_OVERWRITE

'Clear the bitmap so that we can see the paint-while-load effect.
LEADRasterView1.Raster.Bitmap= 0

'Paint the image while loading, showing that it is interlaced.
LEADRasterView1.PaintWhileLoad= True
MyRasterIO.Load LEADRasterView1.Raster, szFile, 0, 0, 1