Anwendungssymbol ändern (Access 97, 2000)
Veröffentlicht am 17.12.2003
Anwendungssymbol nach eigenen wünschen verändern.
Access zeigt in der Titelzeile standardmäßig einen kleinen Schlüssel als Anwendungssymbol an.
Dieses Symbol können Sie entweder einmal festlegen oder auch während der Laufzeit verändern, um den Anwender beispielsweise über bestimmte Zustände der Datenbank zu informieren.
Besonders vorteilhaft ist diese Art der Signalisierung, wenn das Hauptfenster von Access minimiert ist. Bei längeren Aufgaben kann sich der Anwender so direkt via Task-Leiste über den Fortschritt informieren.
Um das Symbol einmal für die gesamte Datenbank zu verändern, wählen Sie den Menüpunkt Extras / Start… aus. Geben Sie im Textfeld Anwendungssymbol die Symboldatei ein, die Sie verwenden möchten. Siehe Abbildung 1.
Das Ändern des Anwendungssymbols während der Laufzeit erledigen Sie mittels der AppIcon-Eigenschaft, die von Database-Objekten zur Verfügung gestellt wird. Dieser Eigenschaft kann der Name einer ICO- oder BMP-Grafikdatei zugewiesen werden. Damit sich die Änderungen sofort auswirken, muss anschließend die RefreshTitelBar-Eigenschaft des Application-Objekts ausgeführt werden.
Da es sich bei der AppIcon-Eigenschaft um eine benutzerdefinierte Eigenschaft handelt, muss diese vor dem ersten Zugriff neu angelegt werden. Das folgende Beispiel zeigt, wie dies funktioniert:
Public Sub AnwendungssymbolÄndern()
Dim Prop As Property
Const Grafikdatei = "F:\Bitmaps\buttons\TriniDat.ico"
On Error GoTo Err ErneuterZugriff:
DBEngine(0)(0).Properties!AppIcon = Grafikdatei Application.RefreshTitleBar
Exit Sub
Err:
If Err.Number = 3270 Then
'Eigenschaft hinzufügen
Set Prop = DBEngine(0)(0).CreateProperty("AppIcon", dbText, " ")
DBEngine(0)(0).Properties.Append Prop
Resume ErneuterZugriff
Else
MsgBox Err.Description
End If
End Sub