ShowAddBitmapsDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U

RasterImgEfxDlg.ItemsCount = 3
RasterImgEfxDlg.ItemFileName(0) = "d:\temp\1.jpg"
RasterImgEfxDlg.ItemFileName(1) = "d:\temp\2.jpg"
RasterImgEfxDlg.ItemFileName(2) = "d:\temp\3.jpg"

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

RasterImgEfxDlg.UIFlags = ADDBITMAPS_SHOW_PREVIEW Or _
                          ADDBITMAPS_SHOW_TOOL_ZOOMLEVEL

RasterImgEfxDlg.Bitmap = LEAD1.Bitmap
nRet = RasterImgEfxDlg.ShowAddBitmapsDlg(hWnd)
If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
   If (RasterImgEfxDlg.SelectedBitmapsCount > 0) Then
      LEAD1.BitmapList = RasterImgEfxDlg.SelectedBitmapList
   End If
End If