vb.net入门——FontDialog 组件的使用

作者：佚名    教程来源：不详    点击数：加载中...    更新时间：2008-4-30 字体:[大 中 小]

FontDialog 组件是.net预设的有模式对话框之一，显示的是系统自带的标准“字体”对话框，用户可以使用它选择字体，更改字体显示方式，例如粗细和大小。

在vb.net的工具箱中，FontDialog 组件图下图一所示：

一、FontDialog 组件的主要属性

1、Font 属性：选定的字体，“字体”对话框返回用户选定的字体。

2、ShowApply 属性：指示对话框是否包含“应用”按钮，默认值为 false。如果对话框包含“应用”按钮，则为 true，此时单击对话框上的“应用”按钮将会触发 组件的 Apply 事件，我们可以在事件中编写把用户选择的结果演示给用户预览，具体操作我们在下面的示例中介绍。

3、ShowColor 属性：指示对话框是否显示颜色选择，认值为 false。如果对话框显示颜色选择，值为 true。如下图二所示：

4、ShowEffects 属性：指示对话框是否包含允许用户指定删除线、下划线和文本颜色选项的控件。

二、示例：

该示例要求能让用户通过“字体”对话框设置文本框中的字体和颜色，并能使用“应用”按钮预览设置。

首先向窗体上拖放一个 FontDialog 组件、一个TextBox 控件、一个 Button 控件。设置 FontDialog 组件的 ShowApply 属性和 ShowColor 属性都为True。

在Form窗体中定义窗体级的变量，如下：

Dim oldFont As Font = Nothing

Dim oldColor As Color = Nothing

在Button1按钮的Click事件中添加如下代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim se As DialogResult

oldFont = TextBox1.Font

oldColor = TextBox1.ForeColor

se = FontDialog1.ShowDialog

If se = DialogResult.OK Then

TextBox1.Font = FontDialog1.Font

TextBox1.ForeColor = FontDialog1.Color

ElseIf (se = DialogResult.Cancel) Then

'当用户点击取消按钮时，恢复TextBox控件的设置

TextBox1.Font = oldFont

TextBox1.ForeColor = oldColor

End If

End Sub

在FontDialog1的Apply事件中添加预览设置的代码：

Private Sub FontDialog1_Apply(ByVal sender As Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply

TextBox1.Font = FontDialog1.Font

TextBox1.ForeColor = FontDialog1.Color

End Sub
在本例中，用户可以通过“字体”对话框设置文本输入框中的字体以及文本的颜色，还可以通过“应用”按钮预览设置，并且在单击“取消”按钮后取消预览的设置。如下图三所示为用户通过“应用”按钮预览用户设置：

如果用户对设置效果满意，则可以单击“确定”按钮实现设置效果，如果对设置不满意，并且不再进行设置，则可以通过单击“取消”按钮退出设置，TextBox1 控件中的字体以及颜色恢复为进入“字体”对话框之前的状态。

本文主要是了解.net中预设的标准对话框中的“字体”对话框，我们可以通过“字体”对话框来增强我们的应用程序的显示效果。本文为巧巧读书网Douces原创，转载请保留该版权信息。