DefaultWorkspaceClone 方法

expandtri全部显示

当在 Visual Basic 中设置了 AppTitleAppIcon 属性后,RefreshTitleBar 方法可以刷新 Microsoft Access 标题栏

expression.RefreshTitleBar

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

说明

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

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

注释  在 Microsoft Access 数据库 (.mdb) 中,可以将 AppTitleAppIcon 属性重置为默认值,方法是:从代表当前数据库的 Properties 集合内将其删除。删除这些属性之后,必须使用 RefreshTitleBar 方法恢复 Microsoft 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