ShowStitchDlg Example for Visual Basic

Private Sub StitchImages_Click()
	Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U
	Dim RasterKrnDlg As New LEADRasterDlgKrn_U
	Dim nRet As Integer
	Dim i As Integer

	RasterKrnDlg.InitDlg 0
	RasterImgEfxDlg.ItemsCount = 3
	RasterImgEfxDlg.ItemFileName(0) = "c:\sample.cmp"
	RasterImgEfxDlg.ItemFileName(1) = "c:\sample.cmp"
	RasterImgEfxDlg.ItemFileName(2) = "c:\sample.cmp"
	For i = 0 To 2
		LEADStitch.Load RasterImgEfxDlg.ItemFileName(i), 0, 0, 1
		RasterImgEfxDlg.ItemDescription(i) = RasterImgEfxDlg.ItemFileName(i)
		RasterImgEfxDlg.ItemBitmap(i) = LEADStitch.Bitmap
		LEADStitch.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("lv.ico")
	nRet = RasterImgEfxDlg.ShowStitchDlg(hWnd)
	If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_EXPORTANDEXIT) Then
		LEAD1.Bitmap = RasterImgEfxDlg.StitchBitmap
	End If
	RasterKrnDlg.FreeDlg
End Sub