栅格数据渲染__GIS动力站_ArcGIS|开源|虚拟地理环境|算法|工程|信息空间化|WebGIS

        Dim pRaster As IRaster
        pRaster = pRLayer.Raster

        'Create stretch renderer and QI RasterRenderer interface
        Dim pStretchRen As IRasterStretchColorRampRenderer
        pStretchRen = New RasterStretchColorRampRenderer
        Dim pRasRen As IRasterRenderer
        pRasRen = pStretchRen

        'Set raster for the render and update
        pRasRen.Raster = pRaster
        pRasRen.Update()

        ' Define two colors
        Dim pFromColor As IColor
        Dim pToColor As IColor
        pFromColor = New RgbColor

        pFromColor.RGB = #f3ff96
        pToColor = New RgbColor
        pToColor.RGB = #00ff00

        'Create a color ramp to use
        Dim pRamp As IAlgorithmicColorRamp
        pRamp = New AlgorithmicColorRamp
        pRamp.FromColor = pFromColor
        pRamp.ToColor = pToColor
        pRamp.Size = 255
        pRamp.CreateRamp(True)

        pStretchRen.BandIndex = 0
        pStretchRen.ColorRamp =

9 7 3 1 2 4 8 :

（本文已被浏览次）

发布人：admin
推荐给好友:

上篇新闻：
下篇新闻：