QBColor funkcija

Grąžina RGB spalvos kodą, kuris perduodamas kaip spalvos reikšmė per senesnę MS-DOS programavimo sistemą.

Sintaksė:

QBColor (spalvos numeris – sveikasis skaičius)

Grąžinimo reikšmė:

Long

Parametrai:

Spalvos numeris: bet kuri sveikojo skaičiaus išraiška, nurodanti spalvos, perduotos iš senesnės MS-DOS programavimo sistemos, spalvos reikšmė.

Spalvos numeriui gali būti priskirtos šios reikšmės:

0 : Juoda

1 : Mėlyna

2 : Žalia

3 : Žydra

4 : Raudona

5 : Purpurinė

6 : Geltona

7 : Balta

8 : Pilka

9 : Šviesiai mėlyna

10 : Šviesiai geltona

11 : Šviesiai žydra

12 : Šviesiai raudona

13 : Šviesiai purpurinė

14 : Šviesiai geltona

15 : Šviesiai balta

Ši funkcija naudojama tik norint konvertuoti iš senesnių MS-DOS grįstų BASIC programų, naudojančių aukščiau nurodytus spalvų kodus. Funkcija pateikia ilgąją sveikojo skaičiaus reikšmę spalvai, kuri bus naudojama „LibreOffice“ IDE nurodyti.

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Pavyzdys:


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,"Color " & iColor
End Sub