VBA UI 文本框背景变黑答案

【问题标题】：VBA UI Textboxes background turns blackVBA UI 文本框背景变黑
【发布时间】：2015-04-15 00:42:33
【问题描述】：

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

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

Private Sub optUserInput_Click()

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

默认为&H80000005&。

有没有人经历过这种情况，如果有，这是怎么回事？

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

【问题讨论】：

标签： vba user-interface background textbox controls

【解决方案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 用于白色。

【讨论】：

感谢您的回答 JLILI。我一直在寻找的是，是否有人有类似的经历，在多年没有问题之后，事情突然无缘无故地发生了变化。