将十六进制颜色字符串转换为 RGB 颜色 [英] Convert hex color string to RGB color
本文介绍了将十六进制颜色字符串转换为 RGB 颜色的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想将十六进制颜色转换为 RGB 颜色.
I want to convert hex color to RGB color.
我使用了以下代码:
Me.BackColor = RGB("#000000")
然后它抛出以下异常:
Argument not specified for parameter 'Green' of 'Public Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Integer'
正确的做法是什么?
推荐答案
By ColorTranslator:
By ColorTranslator:
ColorTranslator.FromHtml("#003399")
其他方式:
Public Function ConvertToRbg(ByVal HexColor As String) As Color
Dim Red As String
Dim Green As String
Dim Blue As String
HexColor = Replace(HexColor, "#", "")
Red = Val("&H" & Mid(HexColor, 1, 2))
Green = Val("&H" & Mid(HexColor, 3, 2))
Blue = Val("&H" & Mid(HexColor, 5, 2))
Return Color.FromArgb(Red, Green, Blue)
End Function
或:
Public Shared Function HexToColor(ByVal hexColor As String) As Color
If hexColor.IndexOf("#"c) <> -1 Then
hexColor = hexColor.Replace("#", "")
End If
Dim red As Integer = 0
Dim green As Integer = 0
Dim blue As Integer = 0
If hexColor.Length = 6 Then
red = Integer.Parse(hexColor.Substring(0, 2), NumberStyles.AllowHexSpecifier)
green = Integer.Parse(hexColor.Substring(2, 2), NumberStyles.AllowHexSpecifier)
blue = Integer.Parse(hexColor.Substring(4, 2), NumberStyles.AllowHexSpecifier)
ElseIf hexColor.Length = 3 Then
red = Integer.Parse(hexColor(0).ToString() + hexColor(0).ToString(), NumberStyles.AllowHexSpecifier)
green = Integer.Parse(hexColor(1).ToString() + hexColor(1).ToString(), NumberStyles.AllowHexSpecifier)
blue = Integer.Parse(hexColor(2).ToString() + hexColor(2).ToString(), NumberStyles.AllowHexSpecifier)
End If
Return Color.FromArgb(red, green, blue)
End Function
或:
Dim c As String = "#ffffff"
c = Replace(c, "#", "")
c = "&H" & c
ColorTranslator.FromOle(c)
或:
Public Function hexToRbgNew(ByVal Hex As String) As Color
Hex = Replace(Hex, "#", "")
Dim red As String = "&H" & Hex.Substring(0, 2)
Hex = Replace(Hex, red, "", , 1)
Dim green As String = "&H" & Hex.Substring(0, 2)
Hex = Replace(Hex, green, "", , 1)
Dim blue As String = "&H" & Hex.Substring(0, 2)
Hex = Replace(Hex, blue, "", , 1)
Return Color.FromArgb(red, green, blue)
End Function
这篇关于将十六进制颜色字符串转换为 RGB 颜色的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文