Set ForeColor 不会在 Exit 事件中执行

Question

我有一个带有两个滚动条的小型用户表单，用于更改单元格值。 它们处于标签顺序中，我想显示它们何时具有焦点。 因此，我在Enter上更改了它们的前景色，并在Exit上将其改回。 一切正常，只是颜色没有变回来。 它在 Enter 时更改，但在 Exit 时不更改。 这是其中之一的代码。

Private Sub ScbWeek_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ScbWeek.ForeColor = vbWhite
End Sub

我在该行上放了一个断点，以查看事件是否触发。 确实如此，当我在停止后继续代码时，颜色被正确更改。 我添加了一个测试：-

Debug.Print "ScbWeek.ForeColor = vbWhite = "; ScbWeek.ForeColor = vbWhite

测试在运行时返回 True，但前景色将继续为黄色。 白色是原始颜色，在 Enter 时更改为 vbYellow。 另一个滚动条从黑色变为 vbRed 并以同样的方式拒绝 go 回到 vbBlack。 我通过切换到下一个控件（向前和向后）并单击另一个控件来测试退出事件。

表单很小，只有 1 个文本框、2 个按钮、2 个滚动条和一些标签。 这是一个相当大的项目的一部分。 显示此表单时不会抑制ScreenUpdating ，无论如何，更改都会按上述方式显示。

我能做些什么？

Answer 1

你可以试试

Me.Repaint

这应该刷新表单的 UI。

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/repaint-method

Answer 2

进行此更改并进行测试。 这将是用户表单关闭时的事件。

Private Sub ScbWeek_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "userform closed!!"
End Sub