2

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

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

我尝试：

label6.Font.Bold = True

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

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

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

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

4

1 回答 1

5

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

创建这个新 Font 时，您当然可以复制现有 Font 对象（如您的表单使用的那个）的属性，但是没有办法将两个 Font 对象动态耦合在一起。如果您的表单使用的字体大小发生变化，则会使用该新大小为表单创建一个新的 Font 对象，但您的自定义粗体 Font 对象将不会更新。

唯一让人困惑的是，如果您没有为子控件设置自定义字体，就会发生一些神奇的事情。它们会自动继承其父级（容器控件，例如窗体）的字体。此类在未显式设置时从其父级检索其值的属性称为环境属性。环境属性在适用的文档中进行了说明。但结果是，当您明确设置属性时，氛围就会消失。所以忘了那个吧。

为了实现您想要的效果，我们需要在表单的字体大小更改时收到通知，作为响应，您可以为您的 Label 控件创建一个具有新大小的新粗体 Font 对象。FontChanged幸运的是，事件的形式就是这样一种机制。为您的表单处理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 对象时，它已经被正确设置。

于 2013-03-20T23:46:11.420 回答