请知道的写一下:
1. 白色 = RGB(250, 250, 250)
2. 灰色 = RGB(128, 128, 128)
3. 红色 = RGB(255, 0, 0)
4. 紫红色 = RGB(255, 0, 255)
5. 黄色 = RGB(255, 255, 0)
6. 蓝色 = RGB(0, 0, 255)
7. 蓝绿色 = RGB(0, 255, 255)
8. 绿色 = RGB(0, 128, 0)
9. 褐色 = RGB(165, 42, 42)
10.紫色 = RGB(128, 0, 128)
11.黑色 = RGB(0, 0, 0)
……
1. 白色 = RGB(250, 250, 250)
2. 灰色 = RGB(128, 128, 128)
3. 红色 = RGB(255, 0, 0)
4. 紫红色 = RGB(255, 0, 255)
5. 黄色 = RGB(255, 255, 0)
6. 蓝色 = RGB(0, 0, 255)
7. 蓝绿色 = RGB(0, 255, 255)
8. 绿色 = RGB(0, 128, 0)
9. 褐色 = RGB(165, 42, 42)
10.紫色 = RGB(128, 0, 128)
11.黑色 = RGB(0, 0, 0)
……
我指的是需要和中文名字对应的那种!
每种颜色3字节,每字节8个位,也即,共可表示2的24(即3*8)次方种颜色?2^(3*8)
16777216
Private Sub Command1_Click() '测试
Debug.Print GETRGB(vbRed)
End Sub
Function GETRGB(lngColor As Long) As String
Dim strR As String
Dim strG As String
Dim strB As String
strR = CStr(lngColor Mod 256)
strG = CStr(lngColor \ 256 Mod 256)
strB = CStr(lngColor \ 256 \ 256)
GETRGB = "RGB(" & strR & "," & strG & "," & strB & " )"
End Function
现在我要根据中文颜色填充矩形框,但我不(或不准确)知道这些颜色的RGB值,请各位帮忙!
如:棕色、红棕色、灰绿色、灰黄色等可能的各种颜色。
说明:我要的是标准颜色的RGB值(如:红色 = RGB(255, 0, 0),而不是红色 = RGB(254, 0, 0)等等)。
http://www.moninet.com.tw/easypage/color1.php