ShowContourFilterDlg Example for Visual Basic

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

Private Sub Contour_Click()
   RasterImgEfxDlg.MaxError = 5
   RasterImgEfxDlg.DeltaDirection = 5
   RasterImgEfxDlg.ContourOption = CONTOUR_LINK_COLOR
   RasterImgEfxDlg.Threshold = 5
   RasterImgEfxDlg.ContourOptionFlags = CONTOURFILTER_SHOW_OPTION_ALL
   RasterImgEfxDlg.UIFlags = CONTOURFILTER_SHOW_PREVIEW Or _
                                CONTOURFILTER_SHOW_DELTADIRECTION Or _
                                CONTOURFILTER_SHOW_MAXIMUMERROR Or _
                                CONTOURFILTER_SHOW_OPTION Or _
                                CONTOURFILTER_SHOW_THRESHOLD Or _
                                CONTOURFILTER_SHOW_TOOL_ZOOMLEVEL

   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgEfxDlg.ShowContourFilterDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProc.ContourFilter LEADRasterView1.Raster, RasterImgEfxDlg.Threshold, _
                                 RasterImgEfxDlg.DeltaDirection, _
                                 RasterImgEfxDlg.MaxError, _
                                 RasterImgEfxDlg.ContourOption
   End If
End Sub