VBA - 用户窗体上控制字体的奇怪问题

Question

我有一个 VBA UserForm （在 Word 文档中），它在 Frame 控件内有一些 CheckBox 控件。

我的所有 CheckBox 控件都设置为使用 Tahoma 字体（控件的默认字体），但其中之一显示为 Verdana。也就是说，它在属性对话框中显示 Tahoma，但实际用于显示文本的字体是 Verdana（无论是在设计时还是在运行时）。

[现在，我应该提到，我确实在字体上搞乱了一段时间，Verdana 是我曾经使用过的字体之一，但现在我已将所有内容设置回 Tahoma。]

你可能在想 - 只是删除并重新创建复选框。试过了。我还尝试复制正确显示的复选框之一。没有喜悦。

这是真正疯狂的事情：CheckBox（或我创建的任何其他CheckBox）仅当它位于表单上的特定位置时才显示为Verdana。如果我将其向上或向下移动几个档次，那就没问题了。 任何我移动到这个特定位置的复选框都会神奇地显示为 Verdana，直到我将其移动到其他位置。不幸的是，我需要它处于那个位置（而不是 Verdana）！

我已经为此奋斗了几个小时，并尝试导出和重新导入代码，另存为 Word 2007 文档（我最初使用的是 2003），除了从头开始重新创建表单之外，我能想到的一切不想做，因为它太大了）。

我认为表单存在某种损坏，但保存的 .frx 文件是二进制格式，因此我无法检查（或编辑）它。

有人见过这个问题吗？有什么解决方案吗？

编辑：我上面说过问题 CheckBox 显示为 Verdana。这是不正确的。我通过反复试验确定它实际上是Tahoma - 但在9pt而不是8pt。上面的其他内容仍然有效，但问题在于文本的大小，而不是字体。

Answer 1

我的一位同事也遇到了同样的问题，并发现如果更改受影响的表单域的大小（使其稍微高一点），问题就会消失。 （为什么？？？！）

Answer 2

当框架内有复选框时，我也经历过同样的情况。一些复选框变得很小，但不是全部，框架上半部分的复选框保持不变。

通过将框架的字体大小属性更改为更大的字体大小，这个问题神奇地从复选框中消失了。

Answer 3

文本显示不正确的问题是由“网格”造成的。仅当控件的顶部位置与 6 的倍数对齐时，文本才会正确显示。我确实使用以下方法来避免此类问题：

Public Function AdjustedToVerticalGrid(ByVal atvg_si As Single, _
                          Optional ByVal atvg_threshold As Single = 1.5, _
                          Optional ByVal atvg_grid As Single = 6) As Single
' -------------------------------------------------------------------------------
' Returns an integer which is a multiple of the grid value (stvg_grid)
' considering a certain threshold (atvg_threshold) which defaults to 1.5. The
' result vertically aligns a control in a userform to a grid value which ensures
' that a text within the control is correctly displayed in accordance with its
' font size. A threshold (atvg_threshold) of 1.5 - the default - with a grid
' value (atvg_grid) of 6 - the default - means:
'  7.5 < si >= 0   results to 6
' 13.5 < si >= 7.5 results in 12
' -------------------------------------------------------------------------------
    AdjustedToVerticalGrid = (Int((atvg_si - atvg_threshold) / atvg_grid) * atvg_grid) + atvg_grid
End Function

Answer 4

事实证明，这种行为甚至与 Walter 所经历的 6 的倍数无关，至少在我的例子中是这样。特定复选框的 Top 参数设置为 112，Tahoma 字体似乎比显示的字体设置大 1 磅（我多次更改设置，通常与其他复选框的设置一致，以确保它是预期的 10)。将 Top 参数更改为 110 会导致字体以正确的大小显示，但将 Top 设置为 111 和 113 也是如此。显然，将 Top 设置为 112 是一种不好的情况，至少在这个用户窗体中是这样。这个问题有时很明显，而其他时候则不明显，所以，这意味着......？

再加上一些用户窗体在运行时自行调整大小的小精灵（在运行时之后在编辑器中查看对象时拖动右下角，所有控件都会恢复到正确的大小/位置，但需要将用户窗体重置回预期的高度/宽度；哦，并且不要在编辑器中显示对象的情况下运行代码以避免出现此问题），编辑器的行为变得有点累。