SSRS 渐变颜色热图。 从“蓝变红”到“绿变红”

Question

我正在构建一个 SSRS 报告，并使用我在另一个站点上找到的片段使用渐变颜色热图。 它运行良好，但会产生“蓝色到红色”色标。 我不够专业，无法更改此代码来执行“绿色到红色”色标。 任何建议都会非常有帮助。

谢谢！

Public Function ColorRYG(ByVal Value As Decimal, ByVal MaxPositive As Decimal, ByVal MaxNegative As Decimal, ByVal Neutral As Decimal) As String
'Example: =code.ColorBack(expression, Max(expression), Min(expression), 0)
'=code.colorback( Fields!Sales.Value,max( Fields!Sales.Value),min( Fields!Sales.Value),0)
'Find Largest Range
Dim decRange As Decimal
Dim decPosRange As Decimal = Math.Abs(MaxPositive - Neutral)
Dim decNegRange As Decimal = Math.Abs(MaxNegative - Neutral)

decRange = IIf(decPosRange > decNegRange, decPosRange, decNegRange)

'Force color into Max-Min Range. Important if you want to Clip the color display to a subset of the data range.     Value = Switch((Value > MaxPositive), MaxPositive, Value < MaxNegative, MaxNegative, True, Value)     'Find Delta required to change color by 1/255th of a shade
Dim decColorInc As Decimal = 255 / decRange

'Find appropriate color shade
Dim iColor As Integer = CInt(Math.Round((Value - Neutral) * decColorInc))

'Return Appropriate +ve or -ve color
Dim strColor As String
If iColor >= 0 Then
    'Green
    iColor = 255 - iColor 'Thus 0 = White & 255 = Green
    strColor = "#" & Math.Abs(iColor).ToString("X2") & Math.Abs(iColor).ToString("X2") & "FF"
Else
    'Red
    iColor = iColor + 255  'NB iColour is -ve;  -1 - -255 
    strColor = "#FF" & Math.Abs(iColor).ToString("X2") & Math.Abs(iColor).ToString("X2")
End If
Return strColor

end function

我尝试更改我认为负责颜色编码但无法将其更改为绿色的部分代码

Answer 1

我目前没有办法测试这个，但试一试......

首先，我获取了代码的“绿色”部分并分解了设置 strColor 的部分，因此您可以看到颜色的每个部分是如何构成的。 颜色以十六进制表示法设置，因此#FFFFFF 为白色 #000000 为黑色，#FF0000 为纯红色，因为每对字符代表#00 和#FF (0 - 255) 之间的红色、绿色和蓝色值

所以这是你现有的代码

strColor = "#" & 
            Math.Abs(iColor).ToString("X2") & ' red
            Math.Abs(iColor).ToString("X2") &  ' green
            "FF" ' blue

我认为像这样的简单更改可能会解决它（但不确定，因为我无法测试）

strColor = "#" & 
            Math.Abs(iColor).ToString("X2") & ' red
            "FF" &  ' green
            Math.Abs(iColor).ToString("X2") ' blue

这里我们将绿色值最大化为 FF (255)，但根据 iColor 使红色和蓝色值可变。 这与原始代码所做的相反，其中蓝色固定为 FF，绿色和红色是可变的。