SSRS标头中颜色渐变的自定义代码

Public Function GetHeaderColor(ByVal index As Integer) As String
    Dim startColor As String = "#FF0000" '起始颜色，这里使用红色
    Dim endColor As String = "#0000FF" '结束颜色，这里使用蓝色
    Dim gradientSteps As Integer = 10 '渐变的步数

    Dim r1 As Integer = Convert.ToInt32(startColor.Substring(1, 2), 16)
    Dim g1 As Integer = Convert.ToInt32(startColor.Substring(3, 2), 16)
    Dim b1 As Integer = Convert.ToInt32(startColor.Substring(5, 2), 16)

    Dim r2 As Integer = Convert.ToInt32(endColor.Substring(1, 2), 16)
    Dim g2 As Integer = Convert.ToInt32(endColor.Substring(3, 2), 16)
    Dim b2 As Integer = Convert.ToInt32(endColor.Substring(5, 2), 16)

    Dim rStep As Integer = (r2 - r1) / gradientSteps
    Dim gStep As Integer = (g2 - g1) / gradientSteps
    Dim bStep As Integer = (b2 - b1) / gradientSteps

    Dim r As Integer = r1 + (rStep * index)
    Dim g As Integer = g1 + (gStep * index)
    Dim b As Integer = b1 + (bStep * index)

    Dim color As String = "#" & r.ToString("X2") & g.ToString("X2") & b.ToString("X2")

    Return color
End Function