zoukankan      html  css  js  c++  java
  • 栅格数据渲染

     栅格数据渲染

    Public Function UsingRasterStretchColorRampRenderer(ByVal pRLayer As IRasterLayer) As IRasterLayer

            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 = pRamp
            'Update the renderer and plug into layer
            pRasRen.Update()
            pRLayer.Renderer = pStretchRen
            UsingRasterStretchColorRampRenderer = pRLayer
            pRaster = Nothing
            pRasRen = Nothing
            pStretchRen = Nothing
            pRamp = Nothing
        End Function
  • 相关阅读:
    代腾飞(为自己名字作诗)
    愈到老愈受用:人生成功生涯规划100诀
    漫步白沫江畔有感
    成功自有成功的方法和道理(一堂价值百万的课)
    你的终点在哪里?决定成功与否的十种智力
    为你痴狂
    苏竹青(帮别人名字作诗)
    何韵仪(帮别人名字作诗)
    腹有诗书又如何
    漫步茶马古道有感
  • 原文地址:https://www.cnblogs.com/lauer0246/p/1297870.html
Copyright © 2011-2022 走看看