LibreOffice 25.2 abi
Tagastab vanema MS-DOS-i põhise programmeerimissüsteemi kaudu edastatud värvi RGB värvikoodi.
QBColor (ColorNumber As Integer)
Long
ColorNumber: suvaline täisarvavaldis, mis määrab vanemast MS-DOS-i põhisest programmeerimissüsteemist edastatud värvi värvikoodi.\t
Parameetri ColorNumber väärtuseks saab määrata ühe järgmistest väärtustest:
0 : Must
1 : Sinine
2 : Roheline
3 : Tsüaan
4 : Punane
5 : Lilla
6 : Kollane
7 : Valge
8 : Hall
9 : Helesinine
10 : Heleroheline
11 : Heletsüaan
12 : Helepunane
13 : Helelilla
14 : Helekollane
15 : Erkvalge
Seda funktsiooni kasutatakse ainult ülalloetletud värvikoode kasutavast vanematest MS-DOS-i põhistest BASIC-u rakendusest teisendamiseks. Funktsioon tagastab pika täisarvavaldise, mis näitab rakenduse LibreOffice arenduskeskkonnas kasutatavat värvi.
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,"Värv " & iColor
End Sub