Tartalom

# QBColor függvény

Visszaadja egy régebbi, MS-DOS-alapú programozási nyelven keresztül színértékként átadott szín RGB-színkódját.

### Szintaxis:

QBColor (SzínSzáma As Integer)

### Visszatérési érték:

Long

### Paraméterek:

SzínSzáma: Bármilyen integer (egész szám) kifejezés, amely megadja egy régebbi, MS-DOS-alapú programozási rendszerből származó szín értéke.

A SzínSzáma paraméterhez az alábbi értékek rendelhetők:

0 : Fekete

1 : Kék

2 : Zöld

3 : Ciánkék

4 : Vörös

5 : Bíbor

6 : Sárga

7 : Fehér

8 : Szürke

9 : Világoskék

10 : Világoszöld

11 : Világos ciánkék

12 : Világosvörös

13 : Halvány bíborvörös

14 : Világossárga

15 : Fényes fehér

Ez a függvény konvertálja a régebbi, MS-DOS-alapú BASIC-alkalmazások által használt színkódokat. A függvény visszaad egy long integer (hosszú egész szám) értéket, amely a LibreOffice IDE termékben használható szín.

### Hibakódok:

5 Érvénytelen eljáráshívás

### Példa:

    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,"Szín:" & iColor
    End Sub