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

来源：qqread 作者：douces 出处：巧巧读书 2007-12-25 进入讨论组

• 关 键 词：
• vb.net
• 用户可以

上一页 1 2 3 下一页 

二、示例：

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

首先向窗体上拖放一个 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

请保留地址 http://www.qqread.com/book/myvbnet/my0036.html 更多内容请看Solaris基础知识入门、.NET移动与嵌入式技术、.NET开发手册专题，或进入讨论组讨论。

上一页 1 2 3 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：vb.net入门——ColorDialog 组件的使用

较新的文章：vb.net入门——OpenFileDialog 组件的使用