Propriété Application.AppIcon (Access)

Article
04/07/2023

Utilisez la propriété AppIcon pour spécifier le nom du fichier bitmap (.bmp) ou d’icône (.ico) qui contient l’icône de l’application. La propriété AppIcon vous permet, par exemple, de spécifier un fichier .bmp contenant l'image d'une voiture pour représenter une application relative à des pièces détachées de voiture.

Syntaxe

expression. AppIcon

expressionUne variable qui représente un objetApplication.

Paramètre

La propriété AppIcon est une expression de chaîne qui est un nom de fichier bitmap ou d’icône valide (/y compris le chemin d’accès).

Le moyen le plus simple de définir cette propriété consiste à utiliser l’option Icône d’application dans la boîte de dialogue Options d’accès . Vous pouvez également définir cette propriété à l’aide d’une macro ou de Visual Basic.

Pour définir la propriété AppIcon au moyen d'une macro ou de Visual Basic, vous devez d'abord la définir dans la boîte de dialogue Options Access ou créer la propriété de l'une des manières suivantes :

Dans une base de données Microsoft Access, vous pouvez l'ajouter à l'aide de la méthode CreateProperty et l'annexer à la collection Properties de l'objet Database.
Dans un projet Microsoft Access (.adp), vous pouvez l’ajouter à la collection AccessObjectProperties de l’objet CurrentProject à l’aide de la méthode Add .

Vous devez également utiliser la méthode RefreshTitleBar pour rendre les modifications visibles immédiatement.

Remarques

Si vous distribuez votre application, il est souhaitable que le fichier .bmp ou .ico contenant l'icône de l'application réside dans le même répertoire que votre application Microsoft Access.

Si la propriété AppIcon n'est pas paramétrée ou si elle n'est pas valide, l'icône Microsoft Access est affichée.

Ce paramètre de propriété prend effet immédiatement après sa définition dans le code (tant que le code inclut la méthode RefreshTitleBar ) ou que la boîte de dialogue Options Access est fermée.

Exemple

L’exemple suivant montre comment modifier les propriétés AppIcon et AppTitle dans une base de données Microsoft Access. Si ces propriétés n'ont pas déjà été définies et créées, vous devez les créer et les ajouter à la collection Properties en utilisant la méthode 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via