Visual Basic 字体对话框 FontDialog
FontDialog 提示用户从本地计算机上安装的字体中选择一种字体,并允许用户选择字体、字体大小和颜色。它返回字体和颜色对象。
以下是字体对话框:

默认情况下,字体对话框上不显示 "颜色组合框"。可以将 FontDialog 控件的 ShowColor 属性设置为 True 来显示它。
FontDialog 控件的属性
以下是 FontDialog 控件的一些常用属性:
| 编号 | 属性 & 描述 |
|---|---|
| 1 | AllowSimulations 获取或设置一个值,该值表示对话框是否允许图形设备界面(GDI)字体模拟。 |
| 2 | AllowVectorFonts 获取或设置一个值,该值表示对话框是否允许选择矢量字体。 |
| 3 | AllowVerticalFonts 获取或设置一个值,该值表示对话框是同时显示垂直和水平字体,还是仅显示水平字体。 |
| 4 | Color 获取或设置选定的字体颜色。 |
| 5 | FixedPitchOnly 获取或设置一个值,该值表示对话框是否仅允许选择固定间距字体。 |
| 6 | Font 获取或设置所选字体。 |
| 7 | FontMustExist 获取或设置一个值,该值表示当用户尝试选择不存在的字体或样式时,对话框是否指定错误条件。 |
| 8 | MaxSize 获取或设置用户可以选择的最大字体大小。 |
| 9 | MinSize 获取或设置用户可以选择的最小字体大小。 |
| 10 | ScriptsOnly 获取或设置一个值,该值表示对话框是否允许为所有非 OEM 和符号字符集以及 ANSI 字符集选择字体。 |
| 11 | ShowApply 获取或设置一个值,该值表示对话框是否包含 Apply 按钮。 |
| 12 | ShowColor 获取或设置一个值,该值表示对话框是否显示颜色选择。 |
| 13 | ShowEffects 获取或设置一个值,该值表示对话框是否包含允许用户指定删除线、下划线和文本颜色选项的控件。 |
| 14 | ShowHelp 获取或设置一个值,该值表示对话框是否显示帮助按钮。 |
FontDialog 控件的方法
以下是 FontDialog 控件的一些常用方法:
| 编号 | 方法名称 & 描述 |
|---|---|
| 1 | Reset 将所有选项重置为其默认值。 |
| 2 | RunDialog 在派生类中重写时,指定公共对话框。 |
| 3 | ShowDialog 使用默认所有者运行公用对话框。 |
FontDialog 控件的事件
以下是 FontDialog 控件的一些事件:
| 编号 | 事件 & 描述 |
|---|---|
| 1 | Apply 单击字体对话框上的 Apply 应用按钮时发生。 |
实例
在本例中,让我们使用字体对话框从富文本控件更改文本的字体和颜色。
使用以下步骤:
- 在窗体上拖放 RichTextBox 控件、Button 控件和 FontDialog 控件。
- 将按钮控件的文本属性设置为 'Change Font'。
- 将 FontDialog 控件的 ShowColor 属性设置为 True。
- 双击 'Change Color' 修改颜色按钮并修改
Click事件的代码
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf FontDialog1.ShowDialog Windows.Forms.DialogResult.Cancel ThenRichTextBox1.ForeColor = FontDialog1.ColorRichTextBox1.Font = FontDialog1.FontEnd IfEnd Sub
使用 Microsoft Visual Studio 工具栏上的 开始 按钮编译和运行应用程序时,将显示以下窗口:

输入一些文本并单击更改字体按钮。

出现字体对话框,选择字体和颜色,然后单击确定按钮。选定的字体和颜色将应用为富文本框文本的字体和前景色。
