vb.net - 在继承的标签上设置 Font.Bold

Question

我必须在未定义 .Font 属性但从表单继承 Font (名称、大小、样式)的标签上设置 .Font.Bold = True 。为此，我从表单的设计器文件中删除了她的 .Font 属性。

现在我需要将此标签的文本设置为粗体，而不定义此标签的字体名称、大小等。

我尝试:

label6.Font.Bold = True

但这不起作用(属性 .Font.Bold 是只读的)。
如果我为此标签设置字体，例如:

label6.Font = New Font(myfontname, 10, FontStyle.Bold, GraphicsUnit.Point)

然后我得到粗体文本，但标签不再继承表单的字体大小。

这里是否可以保留表单的字体继承到标签，但在此类标签上获得粗体文本？

Answer 1

不，因为您已经发现 Font.Bold 属性是只读的。字体对象是不可变的，这意味着它们的属性一旦创建就无法更改。修改此属性的唯一方法是创建一个新的 Font 对象。

当创建这个新的 Font 时，您当然可以复制现有 Font 对象的属性(如表单使用的对象)，但无法动态地将两个 Font 对象耦合在一起。如果表单使用的字体大小发生更改，将为表单创建一个具有新大小的新 Font 对象，但您的自定义粗体 Font 对象不会更新。

唯一让人困惑的是，如果您不为子控件设置自定义字体，就会出现一些神奇的情况。它们自动继承其父级(容器控件，例如表单)的字体。此类在未显式设置时从其父级检索其值的属性称为环境属性。环境属性在the documentation中进行了解释。适用时。但结果是，当您明确设置属性时，氛围就会消失。所以忘记这一点吧。

为了实现您想要的效果，我们需要在表单的字体大小发生变化时收到通知，作为响应，您可以为 Label 控件创建一个具有新大小的新粗体 Font 对象。幸运的是，有这样一种机制，以 FontChanged event 的形式出现。 。处理表单的 FontChanged 事件，并作为响应，为 Label 控件创建一个新的 Font 对象。例如:

Private Sub myForm_FontChanged(ByVal sender As Object, ByVal e As EventArgs) Handles myForm.FontChanged
    Dim oldFont As Font = myLabel.Font
    myLabel.Font = New Font(myForm.Font, myForm.Font.Style Or FontStyle.Bold)
    oldFont.Dispose()
End Sub

尽管如此，我不确定这是否/为什么真的有必要。在应用程序运行时，表单的字体大小很少发生变化。通常，这种情况仅在创建时发生，在这种情况下，当您检索值来为 Label 控件创建自定义 Font 对象时，它已经被正确设置。