Access VBA教程:DatasheetFontHeight属性

使用 DatasheetFontHeight属性可以指定“数据表”视图中显示和打印字段名称和数据的字体的磅值大小。Integer 型,可读/写。

expression.DatasheetFontHeight

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

该属性仅在Microsoft Access 数据库 (.mdb) 中使用Visual Basic 时才可用。

可以通过从“格式”(数据表)工具栏上的“字号”框中选择字体大小,设置该属性。

也可以通过在“格式”菜单上单击“字体”,在“字体”对话框中的“字号”框设置该属性。

对于 DatasheetFontHeight属性,所指定的字号必须对由 DatasheetFontName 属性所指定的字体有效。例如,MS Sans Serif 字体有效的字号只有 8、10、12、14、18 和 24 磅。

可以通过在“工具”菜单上单击“选项”,使用“选项”对话框的“数据表”选项卡中“默认字体”下的设置,设置默认的 DatasheetFontHeight属性。

下列表中包含了在 ADOProperties集合中不存在的属性,除非使用了“格式(数据表)”工具栏来设置它们,或者使用CreateProperty 可以在 Access 数据库中添加这些属性并将其追加到 DAO Properties集合中。

DatasheetFontItalic* DatasheetForeColor*
DatasheetFontHeight* DatasheetBackColor
DatasheetFontName* DatasheetGridlinesColor
DatasheetFontUnderline* DatasheetGridlinesBehavior
DatasheetFontWeight* DatasheetCellsEffect

注意   当添加或设置任何带有星号的属性时,Microsoft Access 自动将所有带星号的属性添加到数据库的 Properties集合中。

VBA示例

以下示例将“产品”表在“数据表”视图的字体设置为 MS Serif,字号设置为 10 磅,字体粗细设置为中等 (500)。

为设置这些属性,该示例使用 SetTableProperty 过程,这一过程在 DatasheetFontItalic 和 DatasheetFontUnderline 属性示例中显示。


Dim dbs As Object, objProducts As Object
Set dbs = CurrentDb
Const DB_Text As Long = 10
Const DB_Integer As Long = 3
Set objProducts = dbs!Products
SetTableProperty objProducts, "DatasheetFontName", DB_Text, "MS Serif"
SetTableProperty objProducts, "DatasheetFontHeight", DB_Integer, 10
SetTableProperty objProducts, "DatasheetFontWeight", DB_Integer, 500

下一示例对“数据表”视图中打开的“产品”窗体进行与上例相同的更改。


Forms!Products.DatasheetFontName = "MS Serif"
Forms!Products.DatasheetFontHeight = 10
Forms!Products.DatasheetFontWeight = 500

上页:Access VBA教程:DatasheetColumnHeaderUnderlineStyle属性 下页:Access VBA教程:DatasheetFontItalic属性

Access VBA教程:DatasheetFontHeight属性

Access VBA教程:DatasheetFontItalic属性 Access VBA教程:DatasheetFontName属性
Access VBA教程:DatasheetFontUnderline属性 Access VBA教程:DatasheetFontWeight属性
Access VBA教程:DatasheetForeColor属性 Access VBA教程:DatasheetGridlinesBehavior属性
Access VBA教程:DatasheetGridlinesColor属性 Access VBA教程:DataType属性
Access VBA教程:DateCreated属性 Access VBA教程:DateGrouping属性
Access VBA教程:DateModified属性 Access VBA教程:DBEngine属性
Access VBA教程:DecimalPlaces属性 Access VBA教程:Default属性
Access VBA教程:DefaultSize属性 Access VBA教程:DefaultValue属性
Access VBA教程:DefaultView属性 Access VBA教程:DefaultWebOptions属性
Access VBA教程:Description属性 Access VBA教程:DestConnectStr、DestinationDB、DestinationTable属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号