Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.