Application.AppIcon-Eigenschaft (Access)

Artikel
04/07/2023

Verwenden Sie die AppIcon-Eigenschaft , um den Namen der Bitmapdatei (.bmp) oder der Symboldatei (.ico) anzugeben, die das Anwendungssymbol enthält. Sie können über die AppIcon-Eigenschaft z.B. eine .BMP-Datei festlegen, die das Bild eines Automobils enthält, um eine Autoteile-Anwendung darzustellen.

Syntax

Ausdruck. AppIcon

expression Eine Variable, die ein Application-Objekt darstellt.

Einstellung

Die AppIcon-Eigenschaft ist ein Zeichenfolgenausdruck, der einen gültigen Bitmap- oder Symboldateinamen (/einschließlich des Pfads) darstellt.

Die einfachste Möglichkeit zum Festlegen dieser Eigenschaft ist die Verwendung der Option Anwendungssymbol im Dialogfeld Zugriffsoptionen . Sie können diese Eigenschaft auch mithilfe eines Makros oder visual Basic festlegen.

Sie können die AppIcon-Eigenschaft mit einem Makro oder Visual Basic festlegen, indem Sie zunächst entweder die Eigenschaft einmalig im Dialogfeld Access-Optionen festlegen oder indem Sie die Eigenschaft auf eine der folgenden Arten erstellen:

In einer Microsoft Access-Datenbank können Sie die Eigenschaft mit der CreateProperty-Methode hinzufügen und anschließend der Properties-Auflistung des Database-Objekts anfügen.
In einem Microsoft Access-Projekt (ADP) können Sie es der AccessObjectProperties-Auflistung des CurrentProject-Objekts mithilfe der Add-Methode hinzufügen.

Sie müssen auch die RefreshTitleBar-Methode verwenden, um alle Änderungen sofort sichtbar zu machen.

Hinweise

Wenn Sie Ihre Anwendung verteilen, empfiehlt es sich, die .BMP- oder .ICO-Datei mit dem Symbol in das Verzeichnis Ihrer Microsoft Access-Anwendung zu stellen.

Ist die AppIcon-Eigenschaft nicht festgelegt oder ungültig, wird das Microsoft Access-Symbol angezeigt.

Diese Eigenschaftseinstellung wird sofort wirksam, nachdem sie im Code festgelegt wurde (sofern der Code die RefreshTitleBar-Methode enthält) oder das Dialogfeld Zugriffsoptionen geschlossen wird.

Beispiel

Das folgende Beispiel zeigt, wie Sie die Eigenschaften AppIcon und AppTitle in einer Microsoft Access-Datenbank ändern. Wurden diese Eigenschaften noch nicht definiert oder erstellt, so müssen Sie sie neu erstellen und mithilfe der CreateProperty-Methode der Properties-Auflistung anfügen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über