ShowShiftDifferenceFilterDlg Example for Visual Basic

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

Private Sub ShiftDifference_Click()
   RasterImgEfxDlg.SpatialFilterType= FLT_SHIFTDIFF_HORZ
   RasterImgEfxDlg.UIFlags = SHIFTDIFFERENCEFILTER_SHOW_PREVIEW Or _
                                SHIFTDIFFERENCEFILTER_SHOW_TOOL_ZOOMLEVEL
   
   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowShiftDifferenceFilterDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.SpatialFilter LEADRasterView1.Raster, RasterImgEfxDlg.SpatialFilterType
   End If
End Sub