关于字体
普通用户可以跳过本节内容。
字体的类型为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.FontCurrentTable表示当前表,表有一个属性Font,用于返回或设置表的字体,这个以后我们会讲述的。
字体的属性都是只读的,不能被修改,例如要将当前表的字体大小改为14磅,正确的代码为:
Dim
fnt As New Font(CurrentTable.Font.Name, 14, CurrentTable.Font.Style)如果直接修改Font的Size属性,编译过程会出现错误提示:
CurrentTable
.Font.Size = 14 '这行代码是不能通过编译的。