VBA 提取系统主题颜色-何保辛
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


VBA 提取系统主题颜色

发表时间:2013/1/5 2:58:43 评论(0) 浏览(5067)  评论 | 加入收藏 | 复制
   
摘 要:其实一直想开发的软件是用系统颜色的,那我也就不用为配色而烦恼!这是个好工具让你选择配色的!
正 文:

我们开发很多程式的时候,都会用到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贴吧

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
access版颜色取值小工具  【andymark  2011/10/26】
(Repaste)GridView的行颜色高亮显示(包括满足条件的...  【何必见戴  2012/4/6】
【Listview教程06】字体颜色隔行换色  【纵云梯  2012/5/27】
关于颜色的经典VBA自定义函数【CAD-vba】  【欢乐小爪  2012/5/30】
调用字体,前景色,背景色对话框\用代码改变文本框背景色、颜色  【叶海峰  2012/7/19】
office 2010/2007/2003 颜色对照表  【风行  2012/10/13】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

何保辛

文章分类

文章存档

友情链接