网页常用颜色代码一般类似这样子表示：#EF5B9C、#102B6A ...
恰好最近要处理颜色值，琢磨了一下，直接将这种颜色代码用到VFP中，好像也挺简单的。

Function HtmlColor2Vfp(lpHtmlColor)
*---------------------
* 将网页颜色（如"#FF0000"）转换为VFP颜色值。类似这样子用：
* thisform.BackColor = HtmlColor2Vfp("#EF5B9C")
*---------------------
local lcColor
lcColor = right(lpHtmlColor, 6)
return EVALUATE("0x" + right(lcColor,2) + substr(lcColor,3,2) + left(lcColor,2))


Function VfpColor2Html(lpVfpColor)
*---------------------
* 将VFP颜色值（如RGB(255,0,0)）转换为网页颜色（"#FF0000"）。用法：
* ? VfpColor2Html(RGB(68,70,147))
*---------------------
local lcColor
lcColor = RIGHT(TRANSFORM(lpVfpColor, "@0"), 6)
return "#" + right(lcColor, 2) + substr(lcColor, 3, 2) + left(lcColor, 2)

收到的鲜花

• kangss 于 5 天前 11:39 送鲜花  1朵  

关键 VFP 只有RGB 没有A

学习啦，谢谢分享！

收藏了