ShowDotRemoveDlg Example for Visual Basic
Dim RasterImgDocDlg As New LEADRasterDlgImgDoc
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer
Private Sub DotRemove_Click()
RasterImgDocDlg.DotRemove.MinDotWidth = 6
RasterImgDocDlg.DotRemove.MinDotHeight = 6
RasterImgDocDlg.DotRemove.MaxDotWidth = 8
RasterImgDocDlg.DotRemove.MaxDotHeight = 8
RasterImgDocDlg.DotRemove.Flags = DOT_USE_DIAGONALS Or DOT_USE_DPI
RasterImgDocDlg.WhiteAreaColor= RGB(255, 0, 0)
RasterImgDocDlg.BlackAreaColor= RGB(0, 0, 255)
RasterImgDocDlg.UIFlags = DOTREMOVE_AUTOPROCESS Or _
DOTREMOVE_SHOW_PREVIEW Or _
DOTREMOVE_SHOW_TOOL_ZOOMLEVEL
RasterImgDocDlg.Bitmap = LEADRasterView1.Raster.Bitmap
RasterImgDocDlg.ShowDotRemoveDlg(hWnd)
End Sub