我们开发很多程式的时候,都会用到Access的主题,不过用多了还是那几十个,几十个里面也用来用去都是那十个八个!
所以最后,我还是返璞归真,返回 Access95年代,使用用户自己的电脑配色算了!不要再被客户看到颜色是我调配的,然后还要教用户怎么改 Access 配色,算了,还是用系统配色,大家都习惯了的!
可是,虽然 Access 2007 已经有个菜单可以选择系统颜色:
可是,我们从这30行中文字中选一个颜色描述 会不会很不人性化?
所以把心一横,就做了个系统配色图表出来了:
在里面,可以选 负数那些来复制,可以选Access颜色来复制,以后就好设计用户界面了!
好用工具,公诸同好了!
用 Excel VBA , PowerPoint VBA 的朋友,就请参考以下代码了:
Private Declare Function apiGetSysColor Lib "user32" Alias "GetSysColor" (ByVal nIndex As Long) As Long
Function GetRGB(RGBval As Long, Num As Integer) As Integer
' 检查参数有效性
If Num > 0 And Num < 4 And RGBval > -1 And RGBval < 16777216 Then
GetRGB = RGBval \ 256 ^ (Num - 1) And 255
Else
' 当数值错误 回传 (-1)
GetRGB = True
End If
End Function
accdb 下载