Deze functie retourneert een waarde van het type Lang die de RGB-kleurcode vertegenwoordigt die overeenkomt met het opgegeven kleurnummer.
Syntaxis
QBColor ( kleur )
Het vereiste argumentkleur is een geheel getal in het bereik 0 – 15.
Instellingen
Het argument kleur heeft de volgende instellingen:
|
Nummer |
Kleur |
Nummer |
Kleur |
|
0 |
Zwart |
8 |
Grijs |
|
1 |
Blauw |
9 |
Lichtblauw |
|
2 |
Groen |
10 |
Lichtgroen |
|
3 |
Cyaan |
11 |
Lichtcyaan |
|
4 |
Rood |
12 |
Lichtrood |
|
5 |
Magenta |
13 |
Lichtmagenta |
|
6 |
Geel |
14 |
Lichtgeel |
|
7 |
Wit |
15 |
Helder wit |
Opmerkingen
Het argument kleur vertegenwoordigt kleurwaarden die worden gebruikt in eerdere versies van Basic (zoals Microsoft Visual Basic voor MS-DOS en de Basic Compiler). Beginnend met de minst significante byte vertegenwoordigt de geretourneerde waarde de waarden voor rood, groen en blauw die worden gebruikt om de gewenste kleur in te stellen in het RGB-systeem dat wordt gebruikt door Visual Basic for Applications.
Voorbeeld
Opmerking: In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie QBColor gebruikt om de eigenschap BackColor van het formulier dat als MyForm wordt doorgegeven te wijzigen in de kleur die wordt aangegeven met ColorCode. QBColor accepteert gehele getallen tussen 0 en 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
