Application.RefreshTitleBar 方法 (Access)

在 Visual Basic 中设置 AppTitle 或 AppIcon 属性后， RefreshTitleBar 方法刷新 Microsoft Access 标题栏。

语法

表达式。RefreshTitleBar

expression：表示 Application 对象的变量。

返回值

Nothing

注解

例如，可以将 Microsoft Access 标题栏中的标题 AppTitle 属性设置更改为"联系人数据库"。

通过 AppTitle 和 AppIcon 属性，可以通过更改 Access 标题栏中显示的标题和图标来自定义应用程序。 设置这些属性后，标题栏不会自动更新。 若要显示对标题栏的更改，必须使用 RefreshTitleBar 方法。

注意

在 Access 数据库中，可以通过从表示当前数据库的 Properties 集合中删除 AppTitle 和 AppIcon属性 ，将其重置为其默认值。 删除这些属性后，必须使用 RefreshTitleBar 方法将 Access 默认值还原到标题栏。

如果 AppIcon 属性指定的图标路径无效，则调用此方法时，标题栏中不会反映任何更改。

示例

下面的示例将当前数据库的 AppTitle 属性设置并应用 RefreshTitleBar 方法来更新的标题栏。

Sub ChangeTitle() 
 Dim obj As Object 
 Const conPropNotFoundError = 3270 
 
 On Error GoTo ErrorHandler 
 ' Return Database object variable pointing to 
 ' the current database. 
 Set dbs = CurrentDb 
 ' Change title bar. 
 dbs.Properties!AppTitle = "Contacts Database" 
 ' Update title bar on screen. 
 Application.RefreshTitleBar 
 Exit Sub 
 
ErrorHandler: 
 If Err.Number = conPropNotFoundError Then 
 Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database") 
 dbs.Properties.Append obj 
 Else 
 MsgBox "Error: " & Err.Number & vbCrLf & Err.Description 
 End If 
 Resume Next 
End Sub

支持和反馈

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