DefaultWorkspaceClone 方法

全部顯示

當(dāng)在 Visual Basic 中設(shè)置了 AppTitle 或 AppIcon 屬性后，RefreshTitleBar 方法可以刷新 Microsoft Access 標(biāo)題欄。

expression.RefreshTitleBar

expression    必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

例如，在 Microsoft Access 標(biāo)題欄中可以通過(guò)設(shè)置 AppTitle 屬性將標(biāo)題更改為“聯(lián)系人數(shù)據(jù)庫(kù)”。

AppTitle 和 AppIcon 屬性使用戶可以通過(guò)更改 Microsoft Access 標(biāo)題欄中顯示的標(biāo)題和圖標(biāo)來(lái)自定義應(yīng)用程序。設(shè)置這些屬性后標(biāo)題欄并不會(huì)自動(dòng)更新，如果要顯示對(duì)標(biāo)題欄的更改，必須使用 RefreshTitleBar 方法。

注釋  在 Microsoft Access 數(shù)據(jù)庫(kù) (.mdb) 中，可以將 AppTitle 和 AppIcon 屬性重置為默認(rèn)值，方法是：從代表當(dāng)前數(shù)據(jù)庫(kù)的 Properties 集合內(nèi)將其刪除。刪除這些屬性之后，必須使用 RefreshTitleBar 方法恢復(fù) Microsoft Access 標(biāo)題欄的默認(rèn)設(shè)置。

如果 AppIcon 屬性所指定的圖標(biāo)路徑無(wú)效，則調(diào)用此方法時(shí)，不會(huì)有更改反映到標(biāo)題欄中。

示例

下面的示例設(shè)置當(dāng)前數(shù)據(jù)庫(kù)的 AppTitle 屬性并用 RefreshTitleBar 方法來(lái)更新標(biāo)題欄。

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