Font类用于指定文本格式，就像我们在其它应用程序中设置字体、字号等。

Font的构造函数语法为：

Public sub New (byval prototype As Font,byval newstyle as FontStyle)

Font 为现有的Font对象，从该对象创建新的Font对象

FontStyle 应用于新的Font对象的FontStyle枚举，可以用or运算符将FontStyle枚举的多个值组合起来。

一、创建一个字体对象

Font对象的几个主要属性如下：

FontFamily 属性：获取与此 Font 对象关联的 FontFamily 对象，FontFamily 对象表示具有类似的字体，但字号和字形可能不同的一组字体。例如，Arial、Times New Roman 和 Verdana。

Bold 属性：指示此 Font 对象是否为粗体，如果此 Font 对象为粗体，则该属性返回 true；否则返回 false。

Italic 属性：指示此 Font 对象是否为斜体，如果此 Font 对象为斜体，则该属性返回 true；否则返回 false。

Underline 属性：指示此 Font 对象是否有下划线。

如下所示，我们创建一个Font对象，该字体为宋体，大小20，粗体、斜体加删除线：

运行后效果如下所示：

二、获取当前字体的大小

我们可以通过Font对象的Height属性来获取此字体的行距（以像素为单位）。行距是两个连续文本行的基线之间的垂直距离。因此，行距包括行间的空白空间及字符本身的高度。

可以通过获取采用这个 Font 对象的单位测量出的全身大小。

在Button按钮的Click事件中加入如下所示代码：

运行后获得如下图所示结果：

一般Font对象是用在Graphics对象的 DrawString 方法中，在对象表面绘制文字。关于 DrawString 方法我们后面再了解。

Dim g As Graphics = Me.CreateGraphics

Dim mBrush As New SolidBrush(Color.Red)

Dim mFont As Font = New Font(New FontFamily("宋体"), 20, FontStyle.Bold Or FontStyle.Italic Or FontStyle.Strikeout)

g.DrawString("巧巧读书网", mFont, mBrush, 50.0F, 50.0F)

MessageBox.Show("字体高：" & mFont.Height.ToString & vbCr & "字体大小：" & mFont.Size.ToString)

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

Dim g As Graphics = Me.CreateGraphics

Dim mBrush As New SolidBrush(Color.Red)

Dim mFont As Font = New Font(New FontFamily("宋体"), 20, FontStyle.Bold Or FontStyle.Italic Or FontStyle.Strikeout)

g.DrawString("巧巧读书网", mFont, mBrush, 50.0F, 50.0F)

End Sub