Gibt einen Long-Wert zurück, der den RGB-Farbcode darstellt, der der angegebenen Farbnummer entspricht.
Syntax
QBColor(color)
Das erforderlicheFarbargument ist eine ganze Zahl im Bereich von 0 bis 15.
Einstellungen
Das Argument color weist die folgenden Einstellungen auf:
| 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 Argument color stellt Farbwerte dar, die von früheren Basic-Versionen verwendet werden (z. B. Microsoft Visual Basic für MS-DOS und der Basic-Compiler). 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 übergebenen Formulars in MyForm Bezug auf die Farbe zu ändern, die durch angegeben wird ColorCode.
QBColor akzeptiert ganzzahlige Werte zwischen 0 und 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub