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

    Lead1.AutoRepaint = False
    'use all bits
    Lead1.LevelLowBit = 0
    Lead1.LevelHighBit = Lead1.BitmapBits - 1
    
    Lead1.GetMinMaxBits
    Lead1.GetMinMaxVal
    max = Lead1.MaxVal
    min = Lead1.MinVal

    'set LUT so that min range maps to RED and max range maps to BLUE
    For i = min To min + 100
     Lead1.LevelLUT(i) = RGB(255, 0, 0)
    Next
    For i = max - 100 To max
     Lead1.LevelLUT(i) = RGB(0, 0, 255)
    Next
    Lead1.AutoRepaint = True