Returnerar ett Värde som representerar RGB-färgkoden som motsvarar det angivna färgnumret.
Syntax
QBColor(färg)
Det obligatoriska färgargumentetär ett heltal i intervallet 0–15.
Inställningar
Färgargumentet har följande inställningar:
| Tal | Färg | Tal | Färg |
|---|---|---|---|
| 0 | Svart | 8 | Grå |
| 1 | Blå | 9 | Ljusblå |
| 2 | Grön | 10 | Ljusgrönt |
| 3 | Cyan | 11 | Light Cyan |
| 4 | Röd | 1,2 | Ljusröd |
| 5 | Magenta | 1, 3 | Ljus Magenta |
| 6 | Gul | 14 | Ljusgult |
| 7 | Vit | 15 | Klarvitt |
Kommentarer
Färgargumentet representerar färgvärden som används av tidigare versioner av Basic (till exempel Microsoft Visual Basic för MS-DOS och Basic Compiler). Från och med den minsta signifikanta byte anger det returnerade värdet de röda, gröna och blå värdena som används för att ange lämplig färg i RGB-systemet som används av Visual Basic for Applications.
Exempel
Obs
I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen QBColor för att ändra egenskapen BackColor för formuläret som skickas in om färgen som MyForm anges av ColorCode.
QBColor accepterar heltalsvärden mellan 0 och 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub