常用颜色的RGB值

原文地址：http://blog.sina.com.cn/s/blog_9908653401013h1c.html

在程序中指定颜色一般试用RGB函数,分别输入R、G、B值。RGB函数返回颜色值(Long)。如果在程序中直接指定颜色对应的值，可以稍微加快程序的运行速度。特别在使单双行显示不同颜色等频繁调用RGB函数时，效果要好一些。     
    
   下表是一些常用颜色的值     
    
   Colour      Red      Green      Blue      值     
   黑色   Black    0   0    0    0     
   白色   White    255    255    255    16777215     
   灰色   Gray    192    192    192    12632256     
   深灰色    Dark    Grey    128    128    128    8421504     
   红色    Red    255    0    0    255     
   深红色    Dark    Red    128    0    0    128     
   绿色    Green    0    255    0    65280     
   深绿色    Dark    Green    0    128    0    32768     
   蓝色    Blue    0    0    255    16711680     
   深蓝色    Dark    Blue    0    0    128    8388608     
   紫红色    Magenta    255    0    255    16711935     
   深紫红    Dark    Magenta    128    0    128    8388736     
   紫色    Cyan    0    255    255    16776960     
   深紫    Dark    Cyan    0    128    128    8421376     
   黄色    Yellow    255    255    0    65535     
   棕色    Brown    128    128    0    32896     
   特殊颜色     
   Button    Face                79741120     
   Text                33554432     
   Background                1090519039     
   App.    Workspace                276856960     
    
   RGB函数计算公式:    颜色值    ＝    (65536    *    Blue)    +    (256    *    Green)    +    (Red) 

==============================================

rgb(r,g,b)=r+g*256+b*256*256

=================================

Dim color As Double
Dim r, g, b As Integer
color = RGB(0, 0, 0)
r = color Mod 256
g = (color \ 256) Mod 256
b = (color \ 256 \ 256) Mod 256
Print r
Print g
Print b