ACCESS【VBA】：023使用RGB函数设置颜色

使用RGB函数设置颜色

内置函数：RGB()函数、RND()函数、INT() 函数

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

RGB(红色值,绿色值,蓝色值)

实例操作

本例在单击“F_颜色”窗体中的“改变边框颜色”按纽时，按纽的边框颜色会随机变化

1、在窗体中插入“改变边框颜色”按纽

2、为窗体添加“cmd_颜色_click”事件过程。

3、为“cmd_颜色_click”事件过程添加VBA代码

4、运行事件过程，查看程序的运行效果

执行代码

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

VBA代码

'通过3个随机数设置按钮边框颜色

Private Sub cmd_颜色_Click()

    Dim RColor, GColor, BColor As Integer

    '获取3个不大于255的非负整数

    RColor = Int(Rnd() * 255)

    GColor = Int(Rnd() * 255)

    BColor = Int(Rnd() * 255)

    '设置按钮边框颜色

    cmd_颜色.BorderColor = RGB(RColor, GColor, BColor)

End Sub

文章来源：ACCESS VBA活用范例大辞典