网页色#000000转化为VB可用色
怎样把网页色转化为
VB中可用颜色(如:设置为背景色)啊?
VB不支持这种格式啊
[解决办法]
Dim str1 As String
str1 = "#ffffff "
'十六进制的表达 &Hxx
Me.BackColor = RGB(CInt( "&h " & Mid(str1, 2, 2)), CInt( "&h " & Mid(str1, 4, 2)), CInt( "&h " & Mid(str1, 6, 2)))
发布时间: 2012-02-07 17:45:37 作者: rapoo
网页色#000000转化为VB可用色
怎样把网页色转化为
VB中可用颜色(如:设置为背景色)啊?
VB不支持这种格式啊
[解决办法]
Dim str1 As String
str1 = "#ffffff "
'十六进制的表达 &Hxx
Me.BackColor = RGB(CInt( "&h " & Mid(str1, 2, 2)), CInt( "&h " & Mid(str1, 4, 2)), CInt( "&h " & Mid(str1, 6, 2)))