Atgriež Long, kas attēlo RGB krāsas kodu atbilstoši norādītajam krāsu skaitlim.
Sintakse
QBColor ( krāsa )
Nepieciešamā krāsaarguments ir vesels skaitlis diapazonā no 0 līdz 15.
Iestatījumi
Krāsas argumentam ir šādi iestatījumi:
Skaitlis |
Krāsa. |
Skaitlis |
Krāsa. |
0 |
Melns |
8 |
Pelēka. |
1 |
Zila |
9 |
Gaiši zils |
2 |
Zaļa |
10 |
Gaiši zaļa |
3 |
Ciāna |
11 |
Light Cyan |
4 |
Simbola ievietošana |
12 |
Light Red |
5 |
Fuksīna |
13 |
Light Magenta |
6 |
Dzeltena. |
14 |
Gaiši dzeltena |
7 |
Balta |
15 |
Bright White |
Piebildes
Krāsas arguments norāda krāsu vērtības, kas tiek izmantotas vecākās Basic versijās (piemēram, Microsoft Visual Basic for MS-DOS un Basic Compiler). Sākot ar mazāko nozīmības baitu, atgrieztā vērtība norāda sarkanās, zaļās un zilās vērtības, kas tiek izmantotas, lai iestatītu atbilstošo krāsu RGB sistēmā, ko izmanto Visual Basic for Applications.
Piemērs
Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā tiek izmantota funkcija QBColor , lai mainītu formas rekvizītu BackColor , kas nodots kā MyForm uz krāsu, ko norāda ColorCode. QBColor pieņem veselu skaitļu vērtības no 0 līdz 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form) MyForm.BackColor = QBColor(ColorCode) End Sub