Access VBA教程:DefaultWorkspaceClone方法

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

expression.RefreshTitleBar

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

说明

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

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

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

VBA示例

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

上页:Access VBA教程:RefreshDatabaseWindow方法 下页:Access VBA教程:Remove方法

Access VBA教程:DefaultWorkspaceClone方法

Access VBA教程:Remove方法 Access VBA教程:RemoveItem方法
Access VBA教程:Repaint方法 Access VBA教程:ReplaceLine方法
Access VBA教程:Requery方法 Access VBA教程:Run方法
Access VBA教程:RunCommand方法 Access VBA教程:Scale方法
Access VBA教程:导出报表快照 (Snapshot Viewer) Access VBA教程:SetDefaultWorkgroupFile方法
Access VBA教程:SetFocus方法 Access VBA教程:SetHiddenAttribute方法
Access VBA教程:SetOption方法 Access VBA教程:SizeToFit方法
Access VBA教程:StringFromGUID方法 Access VBA教程:SysCmd方法
Access VBA教程:TextHeight方法 Access VBA教程:TextWidth方法
Access VBA教程:TransferSQLDatabase方法 Access VBA教程:Undo方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号