ShowUnderlayDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim RasterIO As New LEADRasterIO
Dim nRet As Integer


Private Sub Underlay_Click()
   Dim Raster As New LEADRaster
   Dim UnderlayRaster As New LEADRaster
   Dim i As Integer
   
   RasterImgEfxDlg.ItemsCount= 3
   RasterImgEfxDlg.ItemFileName(0) = "'e:\image1.jpg' "
   RasterImgEfxDlg.ItemFileName(1) = "'e:\image1.jpg'"
   RasterImgEfxDlg.ItemFileName(2) = "'e:\image1.jpg'"
   
   For i = 0 To RasterColorDlg.ItemsCount - 1
      RasterIO.Load Raster, RasterImgEfxDlg.ItemFileName(i), 0, 0, 1
      RasterImgEfxDlg.ItemDescription(i) = RasterImgEfxDlg.ItemFileName(i) 
      RasterImgEfxDlg.ItemBitmap(i) = Raster.Bitmap
   Next i
   
   RasterImgEfxDlg.ImageEffectFlags = UNDERLAY_TILE
   RasterImgEfxDlg.UIFlags = UNDERLAY_SHOW_PREVIEW Or _
                                UNDERLAY_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowUnderlayDlg(hWnd) 
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
      UnderlayRaster.Bitmap = RasterImgEfxDlg.SelectedBitmap
      RasterProc.Underlay LEADRasterView1.Raster, UnderlayRaster, _
                            RasterImgEfxDlg.UnderlayFlags
   End If
End Sub