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
开发者你们好,这是 地球信息思维开发者 dbaseIIIer (QQ325613888) |
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)