Sisukord
Register 🔎︎

# 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 LibreOffice 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