Свойство Application.AppIcon (Access)

Статья
04/07/2023

Используйте свойство AppIcon , чтобы указать имя файла растрового изображения (.bmp) или значка (ICO), содержащего значок приложения. Например, можно использовать свойство AppIcon , чтобы указать файл .bmp, содержащий изображение автомобиля, представляющее приложение автомобильных деталей.

Синтаксис

expression. AppIcon

выражение: переменная, представляющая объект Application.

Setting

Свойство AppIcon — это строковое выражение, которое является допустимым именем файла растрового изображения или значка (включая путь).

Самый простой способ задать это свойство — использовать параметр Значок приложения в диалоговом окне Параметры доступа . Это свойство также можно задать с помощью макроса или Visual Basic.

Чтобы задать свойство AppIcon с помощью макроса или Visual Basic, сначала необходимо задать свойство в диалоговом окне Параметры доступа один раз или создать свойство следующими способами:

В базе данных Microsoft Access ее можно добавить с помощью метода CreateProperty и добавить в коллекцию Properties объекта Database .
В проекте Microsoft Access (ADP) его можно добавить в коллекцию AccessObjectProperties объекта CurrentProject с помощью метода Add .

Кроме того, необходимо использовать метод RefreshTitleBar , чтобы немедленно сделать все изменения видимыми.

Замечания

При распространении приложения рекомендуется, чтобы .bmp или ICO-файл, содержащий значок, находился в том же каталоге, что и приложение Microsoft Access.

Если свойство AppIcon не задано или недопустимо, отображается значок Microsoft Access.

Этот параметр свойства вступает в силу сразу после того, как он задан в коде (при условии, что код включает метод RefreshTitleBar ) или после закрытия диалогового окна Параметры доступа .

Пример

В следующем примере показано, как изменить свойства AppIcon и AppTitle в базе данных Microsoft Access. Если свойства еще не заданы или созданы, их необходимо создать и добавить в коллекцию Properties с помощью метода CreateProperty .

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 и обратная связь.

Поделиться через