Gibt einen Long-Wert zurück, der den RGB-Farbcode darstellt, der der angegebenen Farbnummer entspricht.
Syntax
QBColor(color)
Das erforderliche Farbargumentist eine ganze Zahl im Bereich von 0 bis 15.
Einstellungen
Das Argument color verfügt über die folgenden Einstellungen:
| Zahl | Farbe | Zahl | Farbe |
|---|---|---|---|
| 0 | Schwarz | 8 | Grau |
| 1 | Blau | 9 | Hellblau |
| 2 | Grün | 10 | Hellgrün |
| 3 | Zyan | 11 | Helles Zyan |
| 4 | Rot | 12 | Hellrot |
| 5 | Magenta | 13 | Helles Magenta |
| 6 | Gelb | 14 | Hellgelb |
| 7 | Weiß | 15 | Hellweiß |
Hinweise
Das Color-Argument stellt Farbwerte dar, die von früheren Versionen von Basic (z. B. Microsoft Visual Basic für MS-DOS und basic Compiler) verwendet wurden. Beginnend mit dem am wenigsten signifikanten Byte gibt der Rückgabewert die Rot-, Grün- und Blauwerte an, die verwendet werden, um die entsprechende Farbe in dem RGB-System festzulegen, das von Visual Basic for Applications verwendet wird.
Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die QBColor-Funktion verwendet, um die BackColor-Eigenschaft des Als übergebenen MyForm Formulars an die durch ColorCodeangegebene Farbe zu ändern.
QBColor akzeptiert ganzzahlige Werte zwischen 0 und 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub