使六角形颜色变暗或变暗

我试图将这段Javascript代码转换成VB.net代码,并且在使它工作时遇到了一些麻烦。 所有JS所做的都是一些数学/字节操作,所以我不认为我超出了任何一种语言的范围。 这里的原始代码来源于:

皮条客Trizkit的颜色阴影代码

function shadeColor2(color, percent) {   
var f=parseInt(color.slice(1),16),t=percent<0?0:255,p=percent<0?percent*-1:percent,R=f>>16,G=f>>8&0x00FF,B=f&0x0000FF;
return "#"+(0x1000000+(Math.round((t-R)*p)+R)*0x10000+(Math.round((t-G)*p)+G)*0x100+(Math.round((t-B)*p)+B)).toString(16).slice(1);}

以下是我试图将其转换为:

Public Function LightColor(color As String, percent As Integer) As Color
    Dim f As Integer = Convert.ToInt32(color.Substring(1), 16)
    Dim t As Integer
    If percent < 0 Then
        t = 0
    Else
        t = 255
    End If
    Dim p As Integer
    If percent < 0 Then
        p = percent * -1
    Else
        p = percent
    End If
    Dim R As Integer = f >> 16
    Dim G As Integer = f >> 8 And &HFF
    Dim B As Integer = f And &HFF
    Dim finalColor As String = "#" + (Convert.ToString( _
                                      (&H1000000 + (Math.Round((t - R) * p) + R) * &H10000 + _
                                          (Math.Round((t - G) * p) + G) * &H100 + _
                                          (Math.Round((t - B) * p) + B))) _
                                  ).Substring(1)
    Me.txtID.Text = finalColor
    Return ColorTranslator.FromHtml(finalColor)

End Function

我非常感谢关于业余转换的一些帮助,以及它是否可以工作,我研究了相关的JS语法,但我不确定我是否正确改变了它。 用这些参数运行我的代码之后:

LightColor("#2980b9", 20)

我获得了一个8位十六进制颜色(#00642865),它甚至不是一种颜色 - 我认为我在格式化十六进制输出时遇到了一些问题。


我不完全确定你的代码为什么失败,但我确实看到了一些潜在的缺陷。 最明显的是percent参数。 这应该是doublesingle因为可接受的范围是>= -1.0<= +1.0

我创建了一个简单的.net小提琴,可以在这里找到:https://dotnetfiddle.net/QhowPP

Public Shared Function LightColor(htmlColor As String, percent As Double) As Color

    If (String.IsNullOrEmpty(htmlColor)) Then
        Throw New ArgumentNullException("htmlColor")
    ElseIf ((percent < -1D) Or (percent > +1D)) Then
        Throw New ArgumentOutOfRangeException("percent")
    End If

    Dim c = ColorTranslator.FromHtml(htmlColor)
    Dim f = Int32.Parse(htmlColor.Substring(1), Globalization.NumberStyles.AllowHexSpecifier)
    Dim t = If((percent < 0), 0, 255)
    Dim p = If((percent < 0), (percent * -1), percent)

    Dim result = ("#" & CInt(
        &H1000000 + (Math.Round((t - c.R) * p) + c.R) *
        &H10000 + (Math.Round((t - c.G) * p) + c.G) *
        &H100 + (Math.Round((t - c.B) * p) + c.B)
    ).ToString("X").Substring(1))

    Return ColorTranslator.FromHtml(result)

End Function

C#:

public static Color LightColor(String htmlColor, Double percent)
{

    if (String.IsNullOrEmpty(htmlColor))
    {
        throw new ArgumentNullException("htmlColor");
    }
    else if ((percent < -1D) | (percent > +1D))
    {
        throw new ArgumentOutOfRangeException("percent");
    }

    var c = ColorTranslator.FromHtml(htmlColor);
    var f = Int32.Parse(htmlColor.Substring(1), System.Globalization.NumberStyles.AllowHexSpecifier);
    var t = ((percent < 0) ? 0 : 255); 
    var p = ((percent < 0) ? (percent * -1) : percent);

    var result = ("#" + ((Int32)(
        0x1000000 + (Math.Round((t - c.R) * p) + c.R) *
        0x10000 + (Math.Round((t - c.G) * p) + c.G) *
        0x100 + (Math.Round((t - c.B) * p) + c.B)
    )).ToString("X").Substring(1));

    return ColorTranslator.FromHtml(result);

}
链接地址: http://www.djcxy.com/p/87413.html

上一篇: Lighten or darken a hex color

下一篇: Convert hex color to RGB values in PHP