QBColor Function

QBColor palauttaa RGB-värikoodin, kun väri on annettu vanhemmissa MS-DOS-pohjaisissa ohjelmointiympäristöissä käytetyssä värikoodimuodossa.

Syntaksi:

QBColor (color_number As Integer)

Paluuarvo:

Long

Parametrit:

ColorNumber: mikä tahansa kokonaislukulauseke, joka määrittelee väriarvot vanhempien MS-DOS -pohjaisten ohjelmien mukaisesti.

ColorNumber (värinumero) voi saada seuraavia arvoja:

0 : musta

1 : sininen

2 : vihreä

3 : syaani

4 : punainen

5 : purppura

6 : keltainen

7 : valkoinen

8 : harmaa

9 : vaalea sininen

10 : vaalean vihreä

11 : vaalea syaani

12 : vaalea punainen

13 : vaalea magenta

14 : vaalean keltainen

15 : kirkkaan valkoinen

Tätä funktiota käytetään vain koodin muunnokseen vanhemmista MS-DOS-pohjaisista BASIC-sovelluksista, joissa on käytössä yllä esitetty värikoodi. Funktio palauttaa pitkän kokonaisluvun, joka esittää värin LibreOffice IDE:ssä käytetyssä muodossa.

Virhekoodit:

5 Virheellinen proseduurikutsu

Esimerkki:


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    MsgBox stext,0,"Väri " & iColor
End Sub