在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活用范例大辞典 |
|