SaveResolutionCount example for Visual Basic
Dim i As Integer
Dim RasterIO As New LEADRasterIO
' assume that our bitmap is 800 x 600
' save 3 resolutions
RasterIO.SaveResolutionCount = 3
RasterIO.SaveResolutionWidth(0) = 800
RasterIO.SaveResolutionHeight(0) = 600
RasterIO.SaveResolutionWidth(1) = 400
RasterIO.SaveResolutionHeight(1) = 300
RasterIO.SaveResolutionWidth(2) = 200
RasterIO.SaveResolutionHeight(2) = 150
' get the SaveResolution info
MsgBox "SaveResolutionCount = " + CStr(RasterIO.SaveResolutionCount)
For i = 0 To RasterIO.SaveResolutionCount - 1
MsgBox "SaveResolution(" + CStr(i) + ") = " + _
CStr(RasterIO.SaveResolutionWidth(i)) + " x " + _
CStr(RasterIO.SaveResolutionHeight(i))
Next