使用 DatasheetFontWeight 属性可以指定在“数据表”视图中显示字段名称和数据的字体的粗细。Integer 型,可读/写。
expression.DatasheetFontWeight
expression 必需。返回“Applies To”列表中的一个对象的表达式。
DatasheetFontWeight 属性应用于“数据表”视图中的所有字段,以及“数据表”视图中的窗体的控件。
该属性仅在 Microsoft Access 数据库 (.mdb) 中使用 Visual Basic 时才可用。
在 Visual Basic 中,DatasheetFontWeight 属性设置使用以下 Integer 值。
设置 | 说明 |
---|---|
100 | 淡 |
200 | 特细 |
300 | 细 |
400 | (默认)正常 |
500 | 中等 |
600 | 半粗 |
700 | 加粗 |
800 | 特粗 |
900 | 浓 |
以下设置信信息应用于 Access 数据库 (.mdb) 和 Access 项目 (.adp):
下列表中包含了在 ADO Properties 集合中不存在的属性,除非使用了“格式(数据表)”工具栏来设置它们,或者使用 CreateProperty 可以在 Access 数据库中添加这些属性并将其追加到 DAO Properties 集合中。
以下示例将“Products”表在“数据表”视图的字体设置为 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
下一示例对“数据表”视图中打开的“Products”窗体进行与上例相同的更改。
Forms!Products.DatasheetFontName = "MS Serif"
Forms!Products.DatasheetFontHeight = 10
Forms!Products.DatasheetFontWeight = 500