Question

vb中怎样利用复选框改变一个标签的背景颜色（用一个命令按钮执行改变颜色命令） 最好写出代码

Answer 1

BackColor（背景色）, ForeColor（前景色） 属性：
指定用于显示对象中文本和图形的背景色或前景色。
应用于
复选框，列，组合框，命令按钮，命令组，容器对象，控制对象，编辑框，表单，表格，标头，标签，
选项按钮，选项组，页面，_SCREEN，形状，微调，文本框，工具栏附注
BackColor 属性不适用于命令按钮控制，ForeColor 属性不适用于命令组控制、选项组控制或形状控制。语法Object.BackColor[ = nColor]
Object.ForeColor[ = nColor]设置nColor指定单个颜色值。下表列出常用的颜色值：颜色 RGB 值 nColor 值
白色 255, 255, 255 16777215
黑色 0, 0, 0 0
灰色 192, 192, 192 12632256
暗灰色 128, 128, 128 8421504
红色 255, 0, 0 255
暗红色 128, 0, 0 128
黄色 255, 255, 0 65535
暗黄色 128, 128, 0 32896
绿色 0, 255, 0 65280
暗绿色 0, 128, 0 32768
青色 0, 255, 255 16776960
暗青色 0, 128, 128 8421376
蓝色 0, 0, 255 16711680
暗蓝色 0, 0, 128 8388608
洋红色 255, 0 ,255 16711935
暗洋红色128, 0, 128 8388736说明
设计和运行时可用。
Visual FoxPro 采用 Windows 红绿蓝 (RGB) 配色方案，每一个红、绿、蓝组件由一个 0 到 255 之间的值代表。使用 RGB( ) 函数将三个组件颜色转换为一个复合的 nColor。
若 BackStyle 属性设定为 0（透明），则忽略 BackColor 属性。

Answer 2

Private Sub Command1_Click()
If Option1.Value = True Then Label1.BackColor = RGB(255, 0, 0)
If Option2.Value = True Then Label1.BackColor = RGB(0, 255, 0)
If Option3.Value = True Then Label1.BackColor = RGB(0, 0, 255)
End Sub

Answer 3

If Check1.Value = 1 Then
Label1.BackColor = RGB(255, 0, 0) ‘如果选中，背景红色

Else
Label1.BackColor = RGB(255, 255, 255) '如果没选中，背景白色

End If