VBA 提取系统主题颜色

时　间:2013-01-05 02:58:43
作　者:dbaseIIIer   ID：22003  城市：深圳
摘　要:其实一直想开发的软件是用系统颜色的，那我也就不用为配色而烦恼！这是个好工具让你选择配色的！
正　文:

我们开发很多程式的时候，都会用到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 下载

开发者你们好，这是 地球信息思维开发者 dbaseIIIer （QQ325613888)  更多的 Access/VBA 互联网交互技术，可以参考 本站内部栏目  互联网技术栏目 更多的思维在  新浪微博   Access贴吧  VisualPHP贴吧