全部显示

DefaultWorkspaceClone 方法

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

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

说明

例如，在 Microsoft Access 标题栏中可以通过设置 AppTitle 属性将标题更改为“联系人数据库”。

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

注意  在 Microsoft Access 数据库 (.mdb) 中,可以将 AppTitle 和 AppIcon 属性重置回它们的默认值，只需从代表当前数据库的 Properties 集合内删除它们即可。删除这些属性之后，必须使用 RefreshTitleBar 方法来恢复 Microsoft Access 标题栏的默认值。

示例

下面的示例设置当前数据库的 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