有没有办法获得字体下拉列表?

Is there a way to get a dropdown of Fonts?

b 是按钮 class 的实例。以下是设置按钮 b 字体的两种方法。但在这两种情况下,我都输入了“Calibri”这个词。有没有办法通过一些 属性 或方法来提取“Calibri”,这样我们就不必输入它了?理想情况下,我想获得一个下拉列表,从中我可以选择一种字体(类似于选择颜色)。这可能吗?

b.Font = New Font("Calibri", 20)

Dim fontF As New FontFamily("Calibri")
b.Font = New Font(fontF, 20)

此外,如果上述方法不可行,是否有办法找出可在我尝试创建的 WinForms 中使用的完整字体列表?请注意,我正在寻找以下内容:b.FlatAppearance.BorderColor = Color.Red。这里 'Red' 在我键入 Color.Red 后作为下拉菜单出现。为按钮设置字体时是否可能发生类似的事情?

我了解到您希望智能感知在键入时提供字体名称列表。不幸的是,这不能直接使用。但是,您可以打开表单设计器,select 一个按钮并打开字体编辑器:

然后select您想要的字体,复制名称,取消对话框,然后将名称粘贴到您的代码中;或者使用此对话框直接通过设计器属性设置字体。适合您的情况。