Returnerar ett Värde som representerar RGB-färgkoden som motsvarar det angivna färgnumret.
Syntax
QBColor ( färg )
Den färg som krävsargument ä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 som MyForm till färgen som 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
