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ąžinama reikšmė:
Ilgas
Parametras:
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.
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