QBColor-functie
Geeft de RGB-kleurcode van de kleur als een kleurwaarde terug volgens een ouder MS-DOS-gebaseerd programmeersysteem.
Syntaxis:
QBColor (KleurNummer As Integer)
Teruggegeven waarde:
Long
Parameter:
KleurNummer: Elke Integer-expressie die de kleurwaarde specificeert van de kleur volgens een ouder op MS-DOS gebaseerd programmeersysteem.
KleurNummer kan worden toegekend aan de volgende waarden:
0 : Zwart
1 : Blauw
2 : Groen
3 : Cyaan
4 : Rood
5 : Magenta
6 : Geel
7 : Wit
8 : Grijs
9 : Lichtblauw
10 : Lichtgroen
11 : Lichtcyaan
12 : Lichtrood
13 : Lichtmagenta
14 : Lichtgeel
15 : Helder Wit
Deze functie wordt alleen gebruikt om te converteren vanuit oudere op MS-DOS gebaseerde BASIC-toepassingen die de bovengenoemde kleurcodes gebruiken. De functie geeft een Long Integer-waarde terug die de kleur aangeeft die moet worden gebruikt in de LibreOffice IDE.
Voorbeeld:
Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
iColor = 7
sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
MsgBox sTekst,0,"Kleur " & iKleur
End Sub