为什么和pthread_t是不透明类型？(Why and in what sense is pthread_t an opaque type?)

 转到“报告属性”>“代码”并添加以下自定义代码： 
 
Public Function hsl2htmlColor(ByVal h as Double, ByVal s as Double, ByVal l as Double) as string
    dim r as Double
    dim g as Double
    dim b as Double

    If s = 0 Then
        r = g = b = l
    Else
        dim q as Double

        If l < 0.5 Then 
            q = l * (1 + s) 
        Else
            q = l + s - l * s 
        End If

        dim p as Double = 2 * l - q
        r = hue2rgb(p, q, h + 1/3)
        g = hue2rgb(p, q, h)
        b = hue2rgb(p, q, h - 1/3)
    End If

    return "#" & right("00" & Hex(r * 255) , 2) & right("00" & Hex(g * 255) , 2) & right("00" & Hex(b * 255) , 2)
End Function

Public Function hue2rgb(ByVal p as Double, ByVal q as Double, ByVal t as Double) as Double
    If t < 0    Then t += 1
    If t > 1    Then t -= 1
    If t < 1/6  Then return p + (q - p) * 6 * t
    If t < 1/2  Then return q
    If t < 2/3  Then return p + (q - p) * (2/3 - t) * 6
    return p
End Function
 
 （示例）转到文本框属性并将以下表达式添加到“字体”>“颜色”。 每个参数的比例从0到1。 
 
=Code.hsl2htmlColor(0.268 , 0.389 , 0.476)

Go to "Report Properties" > Code and add following custom code:
 
Public Function hsl2htmlColor(ByVal h as Double, ByVal s as Double, ByVal l as Double) as string
    dim r as Double
    dim g as Double
    dim b as Double

    If s = 0 Then
        r = g = b = l
    Else
        dim q as Double

        If l < 0.5 Then 
            q = l * (1 + s) 
        Else
            q = l + s - l * s 
        End If

        dim p as Double = 2 * l - q
        r = hue2rgb(p, q, h + 1/3)
        g = hue2rgb(p, q, h)
        b = hue2rgb(p, q, h - 1/3)
    End If

    return "#" & right("00" & Hex(r * 255) , 2) & right("00" & Hex(g * 255) , 2) & right("00" & Hex(b * 255) , 2)
End Function

Public Function hue2rgb(ByVal p as Double, ByVal q as Double, ByVal t as Double) as Double
    If t < 0    Then t += 1
    If t > 1    Then t -= 1
    If t < 1/6  Then return p + (q - p) * 6 * t
    If t < 1/2  Then return q
    If t < 2/3  Then return p + (q - p) * (2/3 - t) * 6
    return p
End Function
 
(example) Go to your text box properties and add following expression to Font > Color. The scale for each argument is from 0 to 1.
 
=Code.hsl2htmlColor(0.268 , 0.389 , 0.476)