Question

我目前有几个复选框执行以下代码。

Private Sub CheckBox2_Click()
    Dim en As Boolean
    en = CheckBox2.Value
    EnableControls Array(CheckBox3, CheckBox4, CheckBox5, CheckBox6, CheckBox7, CheckBox9, CheckBox10, CheckBox11, TextBox1), en

End Sub

Private Sub EnableControls(cons, bEnable As Boolean)
    Dim con
    For Each con In cons
        With con
            .Enabled = bEnable
            .BackColor = IIf(bEnable, vbWhite, RGB(240, 240, 240))
        End With
    Next con
End Sub

因此，当Checkbox = False时，其他复选框字段显示为灰色，您无法检查它们。然而，一旦他们被解开，他们的整个背面颜色就从默认的＆＃34;形式背景灰色＆＃34;一个大胆的白色 - 任何关于如何将盒子变灰的想法，以及它们何时是不灰色的＃39;他们只是回到他们的默认颜色????

Answer 1

稍加测试就会显示您可以保留代码并设置复选框＆＃39;表单设计器中的BackStyle到fmBackStyleTransparent

启用控件 - 颜色剥离问题

1 个答案: