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

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

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

测试代码

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

理清你逻辑问题。

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

请上传具体实例说明。

参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:转供电.table

修改代码

Dim ls As new List(Of String)
For Each c As object In e.Form.Controls
    If Typeof c Is winform.checkbox AndAlso c.checked Then
        ls.add(c.name)
    End If
Next

If ls.count > 2 Then
    msgbox("不能选择超过2个")
    e.sender.checked = False
    ls.Remove(e.sender.name)
Else If ls.count = 0 Then
    For i As Integer = 1 To 11
        e.Form.controls(i).backcolor = Color.gray
    Next
    Return
End If

Dim fdr As DataRow
If ls.count = 1 Then
    fdr = DataTables("联络线组合").find("对应复选框 = '" & ls(0) & "'")
Else
    fdr = DataTables("联络线组合").find("对应复选框 = '" & ls(0) & "," & ls(1) & "'")
    If fdr Is Nothing Then
        fdr = DataTables("联络线组合").find("对应复选框 = '" & ls(1) & "," & ls(0) & "'")
    End If
End If

If fdr IsNot Nothing Then
    For i As Integer = 1 To 11
        e.Form.controls(i).backcolor = Color.gray
    Next
    Dim s1() As String = fdr("对应复选框").split(",")
    Dim s2() As String = fdr("对应节点").split("|")
    For i As Integer = 0 To s1.length-1
        For Each s As String In s2(i).split(",")
            e.Form.controls(s).backcolor = e.Form.controls(s1(i)).ForeColor
        Next
    Next
Else
    msgbox("没有在表格找到对应的值")
End If