QBColor Function

Tagastab vanema MS-DOS-i põhise programmeerimissüsteemi kaudu edastatud värvi RGB värvikoodi.

SĂĽntaks:

QBColor (ColorNumber As Integer)

Tagastusväärtus:

Long

Parameetrid:

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 LibreOfficeDev arenduskeskkonnas kasutatavat värvi.

Veakoodid:

5 Vigane protseduuri väljakutse

Näide:


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