【access小品】色彩调整器

时　间:2010-07-20 00:00:00
作　者:todaynew   ID：10802  城市：武汉
摘　要:色彩调整器
正　文:

　　Office中国网站的改版还在进行中，这次改版算是把管理员tmtony同志折腾的够呛，看来要把一件事情做好真是不容易。记得原来Ofiice中国网是以蓝色为基调，是我喜欢的颜色，冷静中充满了理性的味道。这次改成了白色为基调，在色彩搭配上相对容易一些，掩盖了tmtony同志色弱带来的一些瑕疵。呵呵。
　　看过一些版友设计的界面，色彩设计上花里胡哨，不知道属于印象派还是野兽派，似乎有点后现代让人摸不着头脑。Access的背景色和前景色调整常用RGB函数，我曾经一直不知道RGB函数与属性中的那一串色彩的数字之间是什么关系。今天在做这个实例时，好生研究了一下，发现原来那一串数字是RGB三个参数的２５６进制换算为１０进制的结果。也就找到了从那串数字推导出RGB函数三个参数的办法。
　　本例本想做的更完善一些，想将窗体、报表的页眉、页脚、主体，以及一类控件的色彩调整也写进来。后来想想这样使得实例过于复杂，不便于阅读和理解，也就罢了。

点击下载此附件

Function GetRGB(ctl As Control) As Variant
Dim A(0 To 1, 0 To 2)
Dim R As Long, G As Long, B As Long
Dim myval As Long
Dim i As Long
For i = 0 To 1
        Select Case i
              Case 0
                      myval = ctl.ForeColor
              Case 1
                      myval = ctl.BackColor
        End Select
        B = Int(myval / (256 ^ 2))
        myval = (myval / 256 ^ 2 - Int(myval / (256 ^ 2))) * 256 ^ 2
        G = Int(myval / 256)
        myval = (myval / 256 - Int(myval / 256)) * 256
        R = myval
        A(i, 0) = R
        A(i, 1) = G
        A(i, 2) = B
Next
GetRGB = A
End Function