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

Parameeter:

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

Palun toeta meid!