Turinys

# 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