Application.AppIcon 属性 (Access)

使用 AppIcon 属性可以指定位图 (.bmp) 或图标 (.ico) 包含应用程序图标的文件的名称。 例如，可以使用 AppIcon 属性指定一个包含汽车图片的 .bmp 文件，来代表一个汽车部件数据库应用程序。

语法

表达式。AppIcon

expression：表示 Application 对象的变量。

Setting

AppIcon 属性是一个字符串表达式，它是 (/包括路径) 的有效位图或图标文件名。

设置此属性的最简单方法是使用“访问选项”对话框中的“应用程序图标”选项。 还可以使用宏或 Visual Basic 设置此属性。

若要使用宏或 Visual Basic 设置 AppIcon 属性，首先必须已经在“Access 选项”对话框中设置过该属性，或者使用以下方式创建该属性：

• 在 Microsoft Access 数据库中，可以通过使用 CreateProperty 方法添加该属性并将其追加到 Database 对象的 Properties 集合中。

• 在 Microsoft Access 项目中 (.adp) 中，可以使用 Add 方法将其添加到 CurrentProject 对象的 AccessObjectProperties 集合中。

还必须使用 RefreshTitleBar 方法使任何更改立即可见。

备注

如果要发布应用程序，建议将包含图标的 .bmp 或 .ico 文件与其 Microsoft Access 应用程序放在同一个目录中。

如果未设置 AppIcon 属性或者属性无效，则会显示 Microsoft Access 图标。

此属性设置在代码 (设置后立即生效，只要代码包含 RefreshTitleBar 方法) ，或者 “访问选项 ”对话框已关闭。

示例

以下示例演示如何更改 Microsoft Access 数据库中的 AppIcon 和 AppTitle 属性。 如果尚未设置或创建这两个属性，必须先使用 CreateProperty 方法创建这两个属性，并将它们追加到 Properties 集合中。

Sub cmdAddProp_Click() 
 Dim intX As Integer 
 Const DB_Text As Long = 10 
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application") 
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp") 
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1 
 Application.RefreshTitleBar 
End Sub 
 
Function AddAppProperty(strName As String, _ 
 varType As Variant, varValue As Variant) As Integer 
 Dim dbs As Object, prp As Variant 
 Const conPropNotFoundError = 3270 
 
 Set dbs = CurrentDb 
 On Error GoTo AddProp_Err 
 dbs.Properties(strName) = varValue 
 AddAppProperty = True 
 
AddProp_Bye: 
 Exit Function 
 
AddProp_Err: 
 If Err = conPropNotFoundError Then 
 Set prp = dbs.CreateProperty(strName, varType, varValue) 
 dbs.Properties.Append prp 
 Resume 
 Else 
 AddAppProperty = False 
 Resume AddProp_Bye 
 End If 
End Function

支持和反馈

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