通过

Application.AppTitle 属性 (Access)

  • 项目

使用 AppTitle 属性可以指定在应用程序数据库的标题栏中显示的文本。 例如，可以使用 AppTitle 属性指定在“库存控制”数据库应用程序的标题栏中显示字符串“库存控制”。

语法

表达式。AppTitle

expression：表示 Application 对象的变量。

Setting

AppTitle 属性是一个字符串表达式，它包含标题栏中显示的文本。

设置此属性的最简单方法是使用“访问选项”对话框中的“应用程序标题”选项。 还可以使用宏或 Visual Basic 设置此属性。

若要使用宏或 Visual Basic 设置 AppTitle 属性，首先必须已经在“Access 选项”对话框中设置过该属性，或者使用以下方式创建该属性：

  • 在 Microsoft Access 数据库中，可以通过使用 CreateProperty 方法添加该属性并将其追加到 Database 对象的 Properties 集合中。

  • 在 Microsoft Access 项目中 (.adp) 中，可以使用 Add 方法将其添加到 CurrentProject 对象的 AccessObjectProperties 集合中。

还必须使用 RefreshTitleBar 方法使任何更改立即可见。

备注

如果未设置该属性，则标题栏中将显示字符串“Microsoft Access”。

此属性设置在代码 (设置后立即生效，只要代码包含 RefreshTitleBar 方法) ，或者 “访问选项 ”对话框已关闭。

示例

以下示例演示如何更改 Microsoft Access 数据库中的 AppIcon 和 AppTitle 属性。 如果尚未设置或创建这两个属性，必须先使用 CreateProperty 方法创建这两个属性，并将它们追加到 Properties 集合中。

Sub cmdAddProp_Click() 
 Dim intX As Integer 
 Const DB_Text As Long = 10 
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application") 
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp") 
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1 
 Application.RefreshTitleBar 
End Sub 
 
Function AddAppProperty(strName As String, _ 
 varType As Variant, varValue As Variant) As Integer 
 Dim dbs As Object, prp As Variant 
 Const conPropNotFoundError = 3270 
 
 Set dbs = CurrentDb 
 On Error GoTo AddProp_Err 
 dbs.Properties(strName) = varValue 
 AddAppProperty = True 
 
AddProp_Bye: 
 Exit Function 
 
AddProp_Err: 
 If Err = conPropNotFoundError Then 
 Set prp = dbs.CreateProperty(strName, varType, varValue) 
 dbs.Properties.Append prp 
 Resume 
 Else 
 AddAppProperty = False 
 Resume AddProp_Bye 
 End If 
End Function

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。