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原创,转载请保留该版权信息。
本文作者:
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原创,转载请保留该版权信息。
本文作者: