Sisällys

# 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