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 kleurargumentis een geheel getal in het bereik 0-15.
Instellingen
Het argument kleur heeft deze instellingen:
| Getal | Kleur | Getal | 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 MyForm dit voorbeeld wordt de functie QBColor gebruikt om de eigenschap BackColor van het formulier te wijzigen dat wordt doorgegeven aan de kleur die wordt aangegeven door ColorCode.
QBColor accepteert gehele getallen tussen 0 en 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub