如何将页面上的颜色转换成VB属性可识别的颜色[转]

如何将页面上的颜色转换成VB属性可识别的颜色

出处： http://blog.mvpcn.net/cuike519/archive/2005/06/21/14076.aspx

我们的产品有使用VB实现的，人机工程部在设计的界面中都使用的是Web方式的颜色值，类似(#FFFFFF)。
对于我们使用VB产品实现的部分这个值不能直接使用，下面这段代码则可以将十六进制标识的颜色转换成VB属性器可识别的颜色：
Dim YourColor As String
YourColor = "#F1F1F1"
Dim r As Integer
r = Val("&H" + Mid$(YourColor$, 2, 2))
Dim g As Integer
g = Val("&H" + Mid$(YourColor$, 4, 2))
Dim b As Integer
b = Val("&H" + Mid$(YourColor$, 6, 2))
MsgBox RGB(r, g, b)// result is 15856113

转载于:https://www.cnblogs.com/vboy/articles/178738.html