Module
Contents
Index 🔎︎

# 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)

## Palautusarvo:

Long

## Parametri:

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.

## Error codes:

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