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

Question

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

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

我尝试:

label6.Font.Bold = True

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

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

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

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

Answer 1

不，因为您已经发现 Font.Bold 属性是只读的。字体对象是不可变的，这意味着它们的属性一旦创建就无法更改。修改此属性的唯一方法是创建一个新的 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 对象时，它已经被正确设置。