ShowStitchDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim RasterIOs New LEADRasterIO
Dim nRet As Integer
Dim i As Integer

Private Sub StitchImages_Click()
   Dim Raster As New LEADRaster
   RasterImgEfxDlg.ItemsCount = 3
   RasterImgEfxDlg.ItemFileName (0) = "c:\image1.cmp"
   RasterImgEfxDlg.ItemFileName(1) = "c:\image2.cmp"
   RasterImgEfxDlg.ItemFileName(2) = "c:\image3.cmp"
   For i = 0 To 2
      RasterIO.Load Raster, RasterImgEfxDlg.ItemFileName(i), 0, 0, 1
      RasterImgEfxDlg.ItemDescription(i) = RasterImgEfxDlg.ItemFileName(i) 
      RasterImgEfxDlg.ItemBitmap(i) = Raster.Bitmap
      Raster.Bitmap = 0
   Next i

   RasterImgEfxDlg.StitchBitmapWidth = 320
   RasterImgEfxDlg.StitchBitmapHeight = 200
   RasterImgEfxDlg.StitchBitsPerPixel = 24
   RasterImgEfxDlg.StitchResolution = 72
   RasterImgEfxDlg.StitchBackGroundColor= RGB(255, 255, 255) 
  RasterImgEfxDlg.WindowIcon = LoadPicture("E:\lead14\com\leadbase2.ico")   
   nRet = RasterImgEfxDlg.ShowStitchDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_EXPORTANDEXIT) Then
      LEADRasterView1.Bitmap = RasterImgEfxDlg.StitchBitmap
   End If
End Sub