VB取各颜色分量,将RGB转为HTML颜色.

最新推荐文章于 2022-07-03 12:30:00 发布

华芸智森

最新推荐文章于 2022-07-03 12:30:00 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： html vb hex

本文链接：https://blog.youkuaiyun.com/MSTOP/article/details/3053216

VB 专栏收录该内容

19 篇文章

订阅专栏

本文提供了将RGB颜色值转换为HTML格式颜色代码的VBScript函数实现。包括获取红、绿、蓝三个颜色分量的函数及将这些分量组合成HTML颜色字符串的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'//取各颜色分量 
Public Function GetRedValue(COLOR As Long) As Integer '取得红色值 
       GetRedValue = COLOR And 
End Function
Public Function GetGreenValue(COLOR As Long) As Integer '取得绿色值 
       GetGreenValue = (COLOR And 65280) / 256
End Function
Public Function GetBlueValue(COLOR As Long) As Integer '取得蓝色值 
        GetBlueValue = (COLOR And &HFF0000) / 65536
End Function
'//将RGB转化为HTML颜色. 
Public Function GetHexColor(Red As Integer, Green As Integer, Blue As Integer) As String 
'将RGB颜色转换为HTML颜色 
  Dim StrRed As String, StrGreen As String, StrBlue As String
  StrRed = Hex(Red)
  StrGreen = Hex(Green)
  StrBlue = Hex(Blue)
  If Red <= 16 Then StrRed = "0" & StrRed
  If Green <= 16 Then StrGreen = "0" & StrGreen
  If Blue <= 16 Then StrBlue = "0" & StrBlue
  GetHexColor = StrRed & StrGreen & StrBlue
End Function