023　使用RGB（）函数设置颜色

◎内置函数：RGB（）函数、Rnd（）函数、Int（）函数

在VBA程序中，如果需要为某个对象设置颜色，可以使用RGB（）函数。RGB（）函数有3个参数，分别代表红、绿、蓝3种颜色，为不大于255的非负整数。该函数的具体语法格式如下。

◎应用实例

素材\第1章\使用RGB函数设置颜色.accdb

本例需要在单击“F_颜色”窗体中的“改变边框颜色”按钮后，按钮的边框颜色会随机变化。

◎案例操作

01　在窗体中插入“改变边框颜色”按钮。

02　为窗体添加“cmd_颜色_Click”事件过程。

03　为“cmd_颜色_Click”事件过程添加VBA代码。

04　执行运行事件过程，查看程序运行效果。

◎过程源代码

源文件\第1章\使用RGB函数设置颜色.accdb

在事件过程中编写VBA代码，获取3个不大于255的非负整数，为按钮边框设置颜色，其具体的VBA代码如下。

◎执行过程

保存编写的VBA代码，将“F_颜色”窗体的视图模式切换至窗体视图模式，单击“改变窗体颜色”按钮，如图1-33所示。

图1-33　单击按钮后随机改变边框颜色