使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。