Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

QBColor

Die Funktion ermittelt den RGB-Farbwert einer in VBA vorbelegten Farbnummer zurck.

Syntax:

QBColor(<Color>)

Parameter:

Color (Datentyp Integer): Erwartet die Angabe der zu untersuchenden Farbnummer. Die Zahlen von 0 bis 15 entsprechen den folgenden Farben:
- 0: Schwarz
- 1: Blau
- 2: Grn
- 3: Cyan
- 4: Rot
- 5: Magenta
- 6: Gelb
- 7: Wei
- 8: Grau
- 9: Hellblau
- 10: Hellgrn
- 11: Hellcyan
- 12: Hellrot
- 13: Hellmagenta
- 14: Hellgelb
- 15: Leuchtend Wei

Beispiele:

Die folgende Beispielroutine gibt die Farbwerte zu den Farbnummern aus:

Public Function Farbwerte()

    Dim i As Integer

    For i = 0 To 15

        Debug.Print QBColor(i)

    Next i

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.