QBColor Function

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éter:

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.

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