代码设置ACCESS对象颜色属性方法解析

tanhong

在ACCESS中通过代码设定对象颜色属性虽然算不上什么高难度的技巧，但因为对于ACCESS对象颜色属性值表述方法差异，给我们编程造成一些困扰。
根据自己编程实践经验总结，ACCESS代码设定对象颜色属性的方法大致有四种，虽表述方法各异，但实际结果并没有什么区别，下面以设定文本框对象背景色为例，具体说明在ACCESS中通过代码设定对象颜色属性方法：

一、十进制方法设定颜色值：在ACCESS中通常用一个十进制的值来进行对象颜色设定，代码表述为一个整数数值。
例如：

1. Ｔext1.BackColor = 255  ‘设定文本框背景色为红色

复制代码

二、十六进制方法设定颜色值： ACCESS中用一个十进制值来进行对象颜色设定，如用十六进制值则报错，但这并不代表我们不可以用十六进制值来进行颜色设定，我们可以在十六进制值前加上“&H”来实现,十进制与十六进制的转换可以通过计算器来实现。
例如：

1. Text1.BackColor = &HFF  ‘设定文本框背景色为红色

复制代码

三、RGB 函数方法设定颜色值：有一点编程基础的人大都知道RGB函数，函数中R代表红色、G代表绿色、B代表蓝色，通过RGB各值的调整来获取指定颜色（具体大家可以参看帮助），该方法也同样适用于ACCESS对象属性中颜色的设定。
例如：

1. Text1.BackColor = RGB（255, 0, 0）‘设定文本框背景色为红色

复制代码

四、Color常数设定颜色值：我们可在VBA中的任何地方用下列常数代替实际值，用以设定ACCESS对象颜色，Color常数有八个（具体可以查看帮助）
例如：

1. Text1.BackColor = vbRed   ‘设定文本框背景色为红色

复制代码

[ 本帖最后由 tanhong 于 2008-11-27 20:23 编辑 ]

zyp

我比较喜欢用这个:

Text1.BackColor = RGB（255, 255, 255）

简单、灵活

tmtony

很全面!! 谢谢分享

tanhong

不知是否还有其它方法, 如有请大家分享.

[ 本帖最后由 tanhong 于 2008-11-27 12:09 编辑 ]

Henry D. Sy

谢谢分享。