ShowLocalHistoEqualizeDlg Example for Visual Basic

Dim RasterColorDlg As New LEADRasterDlgClr
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer

Private Sub LocalHistoEqualize_Click()
   RasterColorDlg.RectangleWidth = LEADRasterView1.Raster.BitmapWidth / 2
   RasterColorDlg.RectangleHeight = LEADRasterView1.Raster.BitmapHeight / 2
   
   RasterColorDlg.ColorSpace = YUV_SPACE
   RasterColorDlg.UIFlags = LOCALHISTOEQUALIZE_SHOW_PREVIEW Or _
                            LOCALHISTOEQUALIZE_SHOW_TOOL_ZOOMLEVEL
   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterColorDlg.ShowLocalHistoEqualizeDlg (hWnd) 
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
         RasterProc.LocalHistoEqualize LEADRasterView1.Raster, _
                                       RasterColorDlg.RectangleWidth, _
                                       RasterColorDlg.RectangleHeight, _
                                       RasterColorDlg.XExtention, _
                                       RasterColorDlg.YExtention, _
                                       RasterColorDlg.ColorSpace, _
                                       RasterColorDlg.SmoothSize
   End If

End Sub