关于字体

普通用户可以跳过本节内容。

字体的类型为Font，定义一个字体的语法为：

Dim 变量名 As New Font(Name, Size, Style)

Name:  字体名称。
Size:  字体大小，单位为磅。
Style: 可选参数，字体样式，FontStyle型枚举。

下面是FontStyle型枚举的可选值：

Bold：      加粗。
Italic：    倾斜。
Regular：   普通。
Strikeout： 中间有直线通过。
Underline： 带下划线。

例如定义一个黑体、大小为12磅、带下划线的字体：

Dim fnt As New Font("黑体",12,FontStyle.Underline)

样式可以用Or运算符叠加，例如定义一个宋体、大小为12磅、加粗且带下划线的字体：

Dim fnt As New Font("宋体",12,FontStyle.Bold or FontStyle.Underline)

字体包括下面三个属性：

Name: 返回字体名称。
Size: 返回字体大小，单位为磅。
Style: 返回字体样式，FontStyle型枚举。

例如下面的代码可以显示当前表的字体属性：

With CurrentTable.Font
    Output.Show(.Name)
    Output.Show(.Size)
    Output.Show(.Style)
End With

CurrentTable表示当前表，表有一个属性Font，用于返回或设置表的字体，这个以后我们会讲述的。

字体的属性都是只读的，不能被修改，例如要将当前表的字体大小改为14磅，正确的代码为：

Dim fnt As New Font(CurrentTable.Font.Name, 14, CurrentTable.Font.Style)
CurrentTable.Font = fnt

如果直接修改Font的Size属性，编译过程会出现错误提示：

CurrentTable.Font.Size = 14 '这行代码是不能通过编译的。