Access VBA代码设定文本框为空的时候，设置一个指定颜色，填入任何内容后，移开鼠标就变成另外一个颜色的示例

来源:www.accessoft.com 点击数:3058 　 | 收藏 | 复制

时　间:2022-12-21 10:32:28
作　者:麥田 ID：11 城市：上海 QQ：3002789054
摘　要:Access VBA代码设定文本框为空的时候，设置一个指定颜色，填入任何内容后，移开鼠标就变成另外一个颜色的示例。
正　文:

一、Access学友问题描述：
深圳--Jerry 14:53:07
请问老师，如何用代码实现一个功能，文本框空时候为白色，填入任何内容后变另外一种颜色？即文本框为空的时候，设置一个指定颜色就是自己初始设置的，填入任何内容后，移开鼠标就变成另外一个颜色。

二、解决方法：
用RGB函数就可以实现；
'RGB(red, green, blue)
'red、green、blue都是数值范围从0到255的整数，代表各个颜色的范围

将背景设为红色：
Me.[文本框名称].BackColor = RGB(255, 0, 0)

将背景设为绿色：
Me.[文本框名称].BackColor = RGB(0, 255, 0)

将背景设为蓝色：
Me.[文本框名称].BackColor = RGB(0, 0, 255)

将文字设为黑色：
Me.[文本框名称].ForeColor = RGB(0, 0, 0)

将文字设为白色：
Me.[文本框名称].ForeColor = RGB(255, 255, 255)

代码如下:
If IsNull([Textbox]) Then
Me.[Textbox].ForeColor = RGB(255, 255, 255)
Else
Me.[Textbox].ForeColor = RGB(255, 0, 0)
End If

附件: