ShowRemapHueDlg Example for Visual Basic

Dim RasterColorDlg As New LEADRasterDlgClr
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer
Dim i As Integer
Private Sub RemapHue_Click()
   RasterColorDlg.UIFlags = REMAPHUE_SHOW_PREVIEW Or _
                            REMAPHUE_SHOW_TOOL_ZOOMLEVEL

   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   
   nRet = RasterColorDlg.ShowRemapHueDlg (hWnd) 
   If (nRet = 0 And RasterWebDlg.DialogStatus = DLG_OK) Then
      RasterProc.RemapHueTablesSize = RasterColorDlg.RemapHueTablesSize
     For i = 0 To RasterColorDlg.RemapHueTableSize - 1
      
         RasterProc.MaskTable (i) = RasterColorDlg.MaskTable (i) 
         RasterProc.HTable (i) = RasterColorDlg.HueTable (i) 
         RasterProc.STable (i) = RasterColorDlg.SaturationTable (i) 
         RasterProc.VTable (i) = RasterColorDlg.ValueTable(i) 
      Next i
      RasterProc.RemapHue LEADRasterView1.Raster, True, True, False, False
   End If
End Sub