ShowRemapIntensityDlg Example for Visual Basic

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

Private Sub RemapIntensity_Click()
   RasterColorDlg.Channel = CHANNEL_RED
   RasterColorDlg.UIFlags = REMAPINTENSITY_SHOW_PREVIEW Or _
                            REMAPINTENSITY_SHOW_TOOL_ZOOMLEVEL

   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterColorDlg.ShowRemapIntensityDlg (hWnd) 
   
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
      RasterProc.RemapTableSize = RasterColorDlg.RemapTableSize
      For i = 0 To RasterColorDlg.RemapTableSize - 1
         RasterProc.RemapTable (i) = RasterColorDlg.RemapTable(i) 
      Next i
      RasterProc.RemapIntensity LEADRasterView1.Raster, RasterColorDlg.Channel
   End If
End Sub