<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Wenn Sie noch mit nicht unter Windows XP mit Access arbeiten, sind Sie mit das altbekannte Grau in Grau der Office-Anwendungen gewohnt. Unter Umständen möchte der eine oder anderen Entwickler oder Anwender mit ein wenig mehr Farbe beglückt werden – ob dies der besseren übersichtlichkeit der Anwendungsoberfläche dient oder einfach eine Flucht vor der gewohnten Farblosigkeit ist, entscheiden Sie selbst. Im vorliegenden Beitrag erfahren Sie erstmal einiges zum Thema Farben und Access.<\/b><\/p>\n
Im Gegensatz zur realen Welt gibt es bei Computern selten Möglichkeiten, Farben einfach über deren Namen festzulegen – und wenn doch, dann verbirgt sich dahinter meist der entsprechende Farbcode.<\/p>\n
Farben bestehen aus unterschiedlichen Anteilen von Rot, Grün und Blau. Dabei legt jeweils ein Wert fest, wie hoch der Anteil jeder Farbe ist. Dieser Wert liegt zwischen 0 und 255. Die Zahl 255 als höchster Wert stammt von dem Hexadezimalwert FF.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{D4399B11-4F18-4040-8AF5-E4BE11AFD7DF}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Auswahl eines Farbwertes<\/span><\/b><\/p>\n Durch die Möglichkeit, jeden Farbanteil in 256 Schritten festzulegen, ergeben sich 2563 verschiedene Kombinationen – also insgesamt 16.777.216 Möglichkeiten.<\/p>\n Unterschiedliche Anwendungen bieten verschiedene Formate zur Angabe des gewünschten Farbcodes an. HTML z. B. akzeptiert den Wert in hexadezimaler Form (#FFFFFF), während Sie den Wert in Access als Dezimalzahl angeben müssen – wie beispielsweise für die Hintergrundfarbe in den Eigenschaften eines Formulars (siehe Bild 1).<\/p>\n Der hier angegebene Farbwert steht für die Farbe Weiß – der hexadezimale Wert lautet #FFFFFF. Der Farbe Schwarz entspricht der Wert 0 (dezimal) bzw. #000000 (hexadezimal).<\/p>\n Mit der Kenntnis des Zahlenbereichs zur Definition einer Farbe (0 bis 16.777.215) und ein wenig Aufmerksamkeit fällt Ihnen schnell Folgendes auf: Wie kann es negative Zahlen als Werte für Farbeigenschaften geben Dies ist nämlich z. B. beim Hintergrund von Formularen der Fall: Der voreingestellte Wert der Eigenschaft Hintergrundfarbe lautet -2.147.483.633. Dieser Wert ist erstens wesentlich größer als der genannte Bereich und zweitens negativ.<\/p>\n Tatsächlich handelt es sich bei diesen Werten nicht um Farbcodes, sondern um Indizes, die stellvertretend für die Windows-Systemfarben stehen. Die Systemfarben von Windows können Sie im Register Darstellung des Dialogs Eigenschaften von Anzeige einstellen (siehe Bild 2). Den Dialog öffnen Sie über den Eintrag Einstellungen\/Systemsteuerung\/Anzeige des Startmenüs.<\/p>\n Die Verwendung dieser Konstanten ist sicher eine gute Idee, wenn Sie dem Anwender die Möglichkeit geben möchten, seine Anwendungsfarben selbst über die Systemsteuerung auszuwählen.<\/p>\n Die Auswahl einer Farbe erfolgt komfortabel über einen von Access zur Verfügung gestellten Dialog (siehe Bild 3). Den Dialog öffnen Sie vom Eigenschaftsfenster aus, indem Sie zunächst in das Feld mit der gewünschten Farbeigenschaft klicken und dann auf die nun erscheinende Schaltfläche mit den drei Punkten (…) klicken.<\/p>\n Mit dem Dialog können Sie eine von 48 Basisfarben auswählen oder eine benutzerdefinierte Farbe festlegen. Zum Festlegen einer benutzerdefinierten Farbe klicken Sie auf die entsprechende Schaltfläche und erweitern somit den Dialog wie in Bild 3.<\/p>\n Hier finden Sie die drei bereits beschriebenen Komponenten einer Farbe wieder: drei Felder zur Eingabe der Rot-, Grün- und Blau-Anteile der Farbe.<\/p>\n <\/p>\n <\/b><\/p>\n Bild 2: Einstellen der Systemfarben<\/span><\/b><\/p>\n Zur Ermittlung von Farbwerten ist oft das Konvertieren von dezimalen Werten in hexadezimale und umgekehrt erforderlich.<\/p>\n <\/b><\/p>\n Bild 3: Hinzufügen benutzerdefinierter Farben<\/span><\/b><\/p>\n Für das Umrechnen von dezimalen Werten in hexadezimale verwenden Sie einfach die Funktion Hex() mit dem dezimalen Wert als Funktionsparameter. Die folgende Anweisung ergibt – im Testfenster (Aufruf über Strg + G) ausgeführt – beispielsweise den Wert FF zurück:<\/p>\n Das Umrechnen in umgekehrter Richtung ist noch einfacher. Sie müssen einfach nur die windowsspezifische Schreibweise für Hexadezimalzahlen verwenden, indem Sie der eigentlichen Zahl den Ausdruck &h voranstellen. Der folgende Ausdruck gibt beispielsweise das Ergebnis 255 zurück:<\/p>\n Wenn Sie zwar die drei Farbanteile kennen, aber keine Lust haben, den resultierenden Wert zu berechnen, verwenden Sie die Funktion RGB. Als übergabewerte dienen die drei Farbanteile wie z. B. in folgender Anweisung:<\/p>\n Als Ergebnis der Anweisung erhalten Sie den Wert 16.777.215. Natürlich können Sie der Funktion auch hexadezimale Werte übergeben, wie folgendes Beispiel zeigt:<\/p>\n Als Ergebnis erhalten Sie den gleichen Wert wie mit dem vorherigen Aufruf.<\/p>\n Die Benutzer Ihrer Anwendungen sollen in der Regel keinen Zugriff auf den Entwurf von Formularen und Berichten haben. Daher fehlt für den Anwender in der Regel auch die Möglichkeit, irgendwelche Farben nachträglich einzustellen.<\/p>\n <\/b><\/p>\n Bild 4: Formular zur Anzeige von Farbinformationen<\/span><\/b><\/p>\n Wenn Sie dem Anwender trotzdem die Gelegenheit dazu bieten möchten, können Sie ihm dazu den Dialog zur Auswahl von Farben über eine eigene Schaltfläche in dem jeweiligen Formular zur Verfügung stellen.<\/p>\n In den folgenden Abschnitten erfahren Sie, wie Sie den Dialog Farbe mit einer Schaltfläche aufrufen und ein Steuerelement in der ausgewählten Farbe anzeigen.<\/p>\n Um die Vorgehensweise nachvollziehen zu können, erstellen Sie zunächst ein Beispielformular. Das Formular enthält eine Schaltfläche zum Aufrufen des Farbauswahl-Dialogs, ein Rechteck-Steuerelement zur Anzeige der ausgewählten Farbe sowie einige Textfelder (siehe Bild 4).<\/p>\n Die Textfelder dienen der Anzeige des Farbcodes der ausgewählten Farbe in dezimaler und in hexadezimaler Form sowie der einzelnen Anteile.<\/p>\n Zur Auswahl der Farbe benötigen Sie eine Funktion, die Sie am Besten in einem eigenen Modul speichern (s. Quellcode 1). Die Funktion verwendet eine Access-interne API-Funktion zur Anzeige des Dialogs (aus: Access 2002 Desktop Developer“s Handbook, Sybex-Verlag 2001). Diese Funktion wird in der ersten Zeile deklariert.<\/p>\n Die nachfolgende Funktion FarbeAuswaehlen erwartet zwei Parameter: das Handle des aufrufenden Fensters sowie einen Farbcode. Die übergabe des Farbcodes ist optional.<\/p>\n Der Parameter dient in jedem Fall zur Rückgabe des Farbcodes der ausgewählten Farbe, kann aber auch verwendet werden, um den aktuell verwendeten Farbcode an den Dialog zu übergeben, wo die entsprechende Farbe dann vorausgewählt wird.<\/p>\n Für die Ereignisprozedur der Schaltfläche cmdFarbeAuswaehlen des Formulars hinterlegen Sie die Prozedur aus Quellcode 2.<\/p>\n Die Prozedur ruft zunächst die Funktion FarbeAuswaehlen auf und übergibt das Fenster-Handle, damit der Dialog weiß, zu welchem Fenster der Focus nach dem Schließen zurückgegeben werden soll. Als zweiter Parameter wird die aktuelle Hintergrundfarbe des Rechteck-Steuerelements recFarbe übergeben.<\/p>\n Nach der Auswahl der gewünschten Farbe verarbeitet die Ereignisprozedur den Farbcode auf unterschiedliche Arten, um die einzelnen Farbanteile in dezimaler und hexadezimaler Schreibweise anzuzeigen – und natürlich, um das Rechteck mit der ausgewählten Farbe zu füllen.<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Sie können die Farbwerte leicht in einer Tabelle speichern, indem Sie das Feld zur Anzeige des Farbcodes an ein Feld der Datenherkunft der gewünschten Tabelle binden.<\/p>\n Auf diese Weise können Sie verschiedenen Datensätzen unterschiedliche Farben zuteilen. Ob Sie die Farbe anschließend für die Färbung von Steuerelementen, Hintergründen oder sonstigem verwenden, bleibt Ihnen überlassen.<\/p>\n Sie können die Farbgebung allerdings nur in der Einzelblattansicht von Formularen verwenden – in der Endlos- und Datenblattansicht greift Access auf die dem ersten Datensatz zugeordnete Farbe zurück.<\/p>\n Im Beitrag Daten visualisieren mit dem Webbrowser-Control der vorliegenden Ausgabe von Access im Unternehmen finden Sie ein weiteres Beispiel für die Anwendung von Farbcodes und deren komfortable Auswahl über den entsprechenden Dialog.<\/p>\n Access-Versionen ab Access 2000 stellen die so genannte Bedingte Formatierung zur Verfügung, mit der Sie auch in Endlosformularen unterschiedliche Farben verwenden können. <\/p>\n","protected":false},"excerpt":{"rendered":" Wenn Sie noch mit nicht unter Windows XP mit Access arbeiten, sind Sie mit das altbekannte Grau in Grau der Office-Anwendungen gewohnt. Unter Umständen möchte der eine oder anderen Entwickler oder Anwender mit ein wenig mehr Farbe beglückt werden – ob dies der besseren Übersichtlichkeit der Anwendungsoberfläche dient oder einfach eine Flucht vor der gewohnten Farblosigkeit ist, entscheiden Sie selbst. Im vorliegenden Beitrag erfahren Sie erstmal einiges zum Thema Farben und Access.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012003,662003,44000028,44000023],"tags":[],"class_list":["post-55000094","post","type-post","status-publish","format-standard","hentry","category-66012003","category-662003","category-Ergonomie_und_Benutzeroberflaeche","category-Mit_Formularen_arbeiten"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{D4399B11-4F18-4040-8AF5-E4BE11AFD7DF}\/pic002.png\")
<\/p>\nUmrechnen von dezimal zuhexadezimal<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{D4399B11-4F18-4040-8AF5-E4BE11AFD7DF}\/pic003.png\")
<\/p>\nDebug.Print Hex(255)<\/pre>\n
Umrechnen vonhexadezimal zudezimal<\/h2>\n
Debug.Print &hFF<\/pre>\n
Berechnen des Farbcodes aus den Farbanteilen<\/h2>\n
Debug.Print RGB(255,255,255)<\/pre>\n
Debug.Print RGB(&hFF, &hFF, &hFF)<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{D4399B11-4F18-4040-8AF5-E4BE11AFD7DF}\/pic004.png\")
<\/p>\nBeispielformular<\/h2>\n
Funktion zur Auswahl der Farbe<\/h2>\n
Declare Sub accChooseColor Lib \"msaccess.exe\" Alias _ \"#53\" (ByVal Hwnd As Long, lngRGB As Long)\r\nPublic Function FarbeAuswaehlen(ByVal Hwnd As Long, _ lngRGB As Long) As Long\r\n accChooseColor Hwnd, lngRGB\r\n FarbeAuswaehlen = lngRGB\r\nEnd Function<\/pre>\n
Private Sub cmdFarbeAuswaehlen_Click()\r\n Dim Rot, Gruen, Blau As Long\r\n Dim Farbcode As Long\r\n Farbcode = FarbeAuswaehlen(Me.Hwnd, _ Me![recFarbe].BackColor)\r\n Me.txtFarbcode = Farbcode\r\n Me![recFarbe].BackColor = Farbcode\r\n Rot = Farbcode Mod 256\r\n Farbcode = Farbcode \\ 256\r\n Gruen = Farbcode Mod 256\r\n Farbcode = Farbcode \\ 256\r\n Blau = Farbcode Mod 256\r\n Me.txtRot = Rot\r\n Me.txtRotHex = Hex(Rot)\r\n Me.txtGruen = Gruen\r\n Me.txtGruenHex = Hex(Gruen)\r\n Me.txtBlau = Blau\r\n Me.txtBlauHex = Hex(Blau)\r\n Me.txtFarbcodeHex = \"#\" _ & Format(Me.txtRotHex, \"00\") _ & Format(Me.txtGruenHex, \"00\") _ & Format(Me.txtBlauHex, \"00\")\r\nEnd Sub<\/pre>\n
Wohin mit der Farbe<\/h2>\n
Hinweis<\/h3>\n