ShowAddBitmapsDlg Example for Visual Basic

   Dim Raster As New LEADRaster
   Dim RasterIO As New LEADRasterIO
   Dim RasterProc   As New LEADRasterProcess
   Dim RasterImgEfxDlg   As New LEADRasterDlgImgEfx   
   Dim nRet As Integer
   Dim i As Integer
   
Private Sub Addbitmaps_Click()
   RasterImgEfxDlg.ItemsCount = 3
   RasterImgEfxDlg.ItemFileName (0) =  'e:\image1.jpg'"
   RasterImgEfxDlg.ItemFileName(1) = 'e:\image2.jpg'"
   RasterImgEfxDlg.ItemFileName(2) = 'e:\image3.jpg'"

   For i = 0 To RasterColorDlg.ItemsCount - 1
      RasterIO.Load Raster, RasterColorDlg.ItemFileName (i), 0, 0, 1
      RasterImgEfxDlg.ItemDescription(i) = RasterColorDlg.ItemFileName(i) 
      RasterImgEfxDlg.ItemBitmap(i) = Raster.Bitmap
   Next i

   RasterImgEfxDlg.UIFlags = ADDBITMAPS_SHOW_PREVIEW Or _
                                ADDBITMAPS_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowAddBitmapsDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
   
      If (LEADDlgImgEffect1.SelectedBitmapsCount > 0) Then
         LEADRasterView1.Raster.BitmapList = RasterImgEfxDlg.SelectedBitmap List
      End If
   End If
End Sub