在VBA程序中,如果需要为某个对象设置颜色,可以使用RGB()函数,RGB()函数有3个参数,分别代表红、绿、蓝3种颜色,为不大于255的非负整数。该函数的具体语法格式如下所示:
RGB(红色值,绿色值,蓝色值)
本例在单击“F_颜色”窗体中的“改变边框颜色”按纽时,按纽的边框颜色会随机变化
1、在窗体中插入“改变边框颜色”按纽
2、为窗体添加“cmd_颜色_click”事件过程。
3、为“cmd_颜色_click”事件过程添加VBA代码
4、运行事件过程,查看程序的运行效果
在事件过程中编写VBA代码,获取3个不大于255的非负整数,为按纽边框设置颜色,其具体的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活用范例大辞典
联系客服