LevelLUT example for Visual Basic
Note: Also works with Access 95 and 97.
This is also the example for MinVal property and MaxVal property.
The following example sets LevelLowBit and LevelHighBit to use all bits, gets the minimum and maximum bits and intensity values for the image, and then sets the LUT so that pixels with values in the minimum range are mapped to the color RED, while pixels with values in the maximum range are mapped to BLUE.
Dim min As Long
Dim max As Long
Dim i As Long
LEADRasterView1.AutoRepaint = False
'use all bits
LEADRasterView1.Raster.LevelLowBit = 0
LEADRasterView1.Raster.LevelHighBit = LEADRasterView1.Raster.BitmapBits - 1
LEADRasterView1.Raster.GetMinMaxBits
LEADRasterView1.Raster.GetMinMaxVal
max = LEADRasterView1.Raster.MaxVal
min = LEADRasterView1.Raster.MinVal
'set LUT so that min range maps to RED and max range maps to BLUE
For i = min To min + 100
LEADRasterView1.Raster.LevelLUT(i) = RGB(255, 0, 0)
Next
For i = max - 100 To max
LEADRasterView1.Raster.LevelLUT(i) = RGB(0, 0, 255)
Next
LEADRasterView1.AutoRepaint = True