主题：[求助]请教大神！！如何实现窗口按钮自动变色

请教大神们！！！！

如何实现窗口按钮自动变色。如图所示：
此主题相关图片如下：qq图片20170810103503.png

在勾选其中一个复选框的时候，部分按钮直接填充颜色，去掉勾选以后恢复原先的颜色。

设置按钮的背景颜色，参考

 

e.Form.Controls("Button1").BackColor = Color.Red

e.Form.Controls("Button2").BackColor = Color.Red

 

你可以在CheckedChanged事件写代码

 

If e.sender.Checked Then

    e.Form.Controls("Button1").BackColor = Color.Red

    e.Form.Controls("Button2").BackColor = Color.Red

Else 

    e.Form.Controls("Button1").BackColor = Color.gray

    e.Form.Controls("Button2").BackColor = Color.gray

End If

谢谢大神

我看下能否实现

可以实现，谢谢大神

大神，还有一个问题，能否实现我界面的某个按钮更具我表里面的不同数值变颜色呢？或者更具表里的某个值变某几个按钮的颜色

此主题相关图片如下：qq图片20170810111513.png

刚才问题的补充截图

测试代码

 

Dim cr As Row = Tables("表A").Rows(0)

If cr("电流总和") > 400 Then
    e.Form.Controls("Button1").BackColor = Color.green
    e.Form.Controls("Button2").BackColor = Color.green
Else
    e.Form.Controls("Button1").BackColor = Color.gray
    e.Form.Controls("Button2").BackColor = Color.gray
End If

代码你可以写到窗口的timetick事件 http://www.foxtable.com/webhelp/scr/1301.htm

 

不行啊，大神，不能实现

 

换一种方式，四个复选框，两两组合，没一种组合显示的按钮颜色都要变动，要加这个条件怎么加呢？如下图的例子，比如我闭合TS13和TS12分别是3，2红色 145是黄色，然后我选择闭合TS13和TS14的话，就12345黄色，789绿色，能实现吗？能不能实现智能的，我随机选择两个框勾选以后按照我固定的颜色来显示呢？（所有两两组合的情况我都在代码里面能够写出来的话）主要是判断条件应该如何写呢？

此主题相关图片如下：qq图片20170810113710.png

理清你逻辑问题。

 

你每个按钮对应什么？你复选框勾选对应什么？勾选打开怎么计算？根据什么数据计算？显示什么颜色根据什么判断？

 

请上传具体实例说明。