DatasheetFontHeight 属性

expandtri全部显示

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

expression.DatasheetFontHeight

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

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

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

 

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

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

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

下表列出了 DAO Properties 集合中的部分属性。这些属性在用户使用“格式(数据表)”工具栏对其进行设置,或使用 CreateProperty 方法将这些属性添加到 Access 数据库 (.mdb) 并将其追加到 DAO Properties 集合中之前不存在。

DatasheetFontItalic*

DatasheetForeColor*

DatasheetFontHeight*

DatasheetBackColor

DatasheetFontName*

DatasheetGridlinesColor

DatasheetFontUnderline*

DatasheetGridlinesBehavior

DatasheetFontWeight*

DatasheetCellsEffect

 

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

示例

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

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

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