VBA UI文本框背景变为黑色

Question

我有一系列带有UI的Excel VBA项目，从未遇到任何问题。我们现在已经迁移到Windows 7，并且一些用户已经注意到文本框控件背景在选择控件时呈现为黑色（通过选择单选按钮）。

今天，重新启动计算机后，情况也一样。这是激活文本框的单选按钮事件的代码。

Private Sub optUserInput_Click()

With frmBOMReport.txtPN
    .Enabled = True
    .Locked = False
    .BackColor = &H80000009  'White Background
End With

默认值为&H80000005&。

有没有人经历过这个，如果有，这里发生了什么？

提前感谢您对此的任何回复。 卡罗

Answer 1

选项1

使用RGB功能

Private Sub optUserInput_Click()        
    With frmBOMReport.txtPN
        .Enabled = True
        .Locked = False
        .BackColor = RGB(255,255,255)  'White Background
    End With

&H80000009是一个VB Const，表示标题中文字的颜色。因此，如果文本为黑色，则代码会使控件的背景颜色变黑。

选项2

使用&HFFFFFF const作为白色的事实VB const。