Access平台开发人员帮助 > 通用函数库 > 按功能 > 颜色处理

函数说明

该函数可以将vba的颜色值转换成web的颜色值。vba的颜色值是一个十进制的数值，web的颜色值是一个十六进制的值。

函数原型

Public Function gf_CssColorConvert(lngColor As Long) As String

语法

gf_CssColorConvert(lngColor)

参考：gf_CssColorConvert(225) '将Vba中的颜色值为225转换测Web颜色值

参数

参数名	必需/可选	数据类型	参数说明
lngColor	必需	Long	要转换的vba颜色值。有效范围 0~16777215

返回值

返回一个字符串类型(String)的值，例如："#52A23F"。若返回""，说明输入的值有误。

示例

Sub subTest()

Dim strWebColor As String '定义一个字符串，接收函数返回值

strWebColor = gf_CssColorConvert(16711680) '将vba的颜色16711680 转换为Web颜色值。16711680也就是VbBlue的值

Msgbox "您得到的Web颜色值为：" & strWebColor '弹窗显示结果

End Sub

返回结果 strWebColor = “#0000FF”

vba颜色转成web颜色（gf_CssColorConvert函数）